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El leng laje 


al a 


En cualquier ordenador personal, micro o mini, 
hay el microprocesador. Llamado también CPU, 
es decir, Central Processing Unit (unidad central 
de proceso), el microprocesador es un conjunto 
de circuitos, transistores, diodos, resistencias y 
condensadores que ocupan un espacio muy re- 
ducido. Piénsese que es posible contener hasta 
450.000 transistores en un cuadrado de 5,5 mm 
de lado: en una cabeza de aguja podrían caber 
unos 25.000 transistores. 

Las funciones realizadas por el microprocesa- 
dor son principalmente dos: el control de los 
componentes que constituyen el calculador y la 
ejecución de los cálculos aritméticos y lógicos. 
Estas tareas se realizan bajo el control de un 
programa escrito en un lenguaje muy diferente 
al Basic: el lenguaje máquina, el único lenguaje 
que el microprocesador puede entender. En un 
lenguaje máquina, las instrucciones están cons- 
tituidas por secuencias de estados lógicos O y 
1, organizados en bytes o en palabras, según el 
tipo de microprocesador utilizado. 


Cada instrucción realiza una misión muy defini- 
da y limitada, por lo que es necesaria una larga 
secuencia de instrucciones incluso para efec- 
tuar una sencilla operación. 

La escritura de un programa directamente en 
lenguaje máquina no es una cosa sencilla. Se 
corre el riesgo de cometer muchos errores, y a 
menudo se obtienen programas que es prácti- 
camente imposible comprender o modificar. 
En la programación de un ordenador persona! 
en un lenguaje de alto nivel como el Basic, la 
misión de traducir las instrucciones y los coman- 
dos en las correspondientes instrucciones en 
lenguaje máquina la realiza un conjunto de pro- 
gramas residentes establemente en memoria 
(RAM o ROM), como el intérprete, el compilador 
y el revisor. Sin embargo, en algunos casos, pa- 
ra que el ordenador personal realice determina- 
das misiones no es posible utilizar sólo el len- 
guaje de alto nivel. 

Si por una parte los lenguajes de alto nivel inter- 
pretados son muy flexibles (como se dice, están 
orientados hacia el hombre), por otra tienen la 
desventaja de ser muy lentos en la ejecución. 
Efectivamente, en esta fase debe reclamarse 
continuamente el programa intérprete, que tra- 
duce cada instrucción Basic sencilla en la co- 
rrespondiente serie de instrucciones en len- 


El bus de conexión externa de un ordenador. 
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guaje máquina, directamente ejecutables por el 
microprocesador, Esta lentitud es totalmente 
inaceptable en determinadas aplicaciones, co- 
mo por ejemplo los gráficos por ordenador y los 
videojuegos, en los que se tiene la necesidad 
de producir animaciones en la pantalla, que ne- 
cesitan rápidos desplazamientos en memoria 
de grandes cantidades de datos. 

Por tanto, surge la necesidad de programar el 
ordenador en lenguaje máquina. 

Para conseguir este objetivo de manera más có- 
moda y ágil cuando no se puede usando direc- 
tamente los códigos hexadecimales, se utiliza el 
lenguaje Assembler que, a pesar de ofrecer la 
característica de ser muy similar al lenguaje má- 
quina, evita la necesidad de emplear los códi- 
gos numéricos. A cada instrucción Assembler 
corresponde una instrucción en lenguaje má- 
quina o bien una secuencia de estados lógicos 
0 y 1 contenidos en general en uno o más bytes. 
Respecto al lenguaje máquina, el Assembler es 
más manejable, y pone a disposición del pro- 
gramador algunos instrumentos necesarios pa- 
ra una ágil escritura de los programas, como la 
posibilidad de definir etiquetas (label) o bien 
nombres simbólicos para las variables. 

La necesaria traducción de un programa del 
Assembler al lenguaje máquina se obtiene utili- 
zando después un programa de sistema llama- 
do Ensamblador, 

Antes de analizar las características de este 
nuevo lenguaje y el funcionamiento del ensam- 
blador daremos una descripción general de un 
microprocesador tipo, Esta fase de la exposi- 
ción es prácticamente obligada porque, al ser el 
Assembler un lenguaje similar al lenguaje má- 
quina, está muy ligado al funcionamiento del mi- 
croprocesador, cuyas características son en 
buena parte establecidas por la estructura del 
microprocesador utilizado. 


Estructura y funcionamiento 
del microprocesador 


Un microprocesador puede tener una lógica de 
funcionamiento particularmente suya, pero exis- 
ten algunas necesidades fundamentales a res- 
petar, es decir, funciones que normalmente de- 
ben estar presentes. 

Un microprocesador tiene en su interior un 
conjunto (set) de instrucciones codificadas que 
permiten la ejecución de operaciones bien defi- 
nidas. Una secuencia de estas instrucciones re- 
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sidentes en la memoria está definida por códi- 
gos de programa. 

En la memoria hay presentes tanto las funciones 
como los datos necesarios para la ejecución de 
las mismas. Generalmente, en las arquitecturas 
más sencillas, los datos sobre los cuales la ins- 
trucción actúa están escritos en posiciones de 
memoria contiguas a las ocupadas por la propia 
instrucción. En las arquitecturas más complejas 
es posible dividir la memoria en dos zonas: el 
área de códigos, en la que hay contenidas las 
instrucciones para la máquina, y el área de da- 
tos, que contiene los datos necesarios para rea- 
lizar las instrucciones. En estos casos, el 
conjunto de las instrucciones del programa pue- 
de cargarse en una memoria de sólo lectura 
(ROM) y los datos, diferentes en cada ejecu- 
ción, en una memoria de lectura y escritura 
(RAM) (ver a este respecto el gráfico de la pági- 
na siguiente). 

Por ejemplo, si se quiere calcular la suma de 
dos números y memorizar el resultado, el pro- 
grama Basic debería estar constituido así (el có- 
digo LET puede no estar): 


10 LET V = 10 
20 LETS =V+ 20 


Las operaciones que la CPU debe realizar son 
las siguientes: 


1 / Tomar y memorizar en una memoria interna 
el valor 10 

2 / Tomar el valor 20 y sumarlo al contenido de 
la memoria interna $ 

3 / Depositar el valor resultante en la posición de 
memoria que tiene el nombre simbólico S 


En el ejemplo, el valor numérico 10 se ha memo- 
rizado previamente en una posición de nombre 
V, mientras que el valor 20 se proporciona como 
dato numérico asociado directamente a la ins- 
trucción de suma (línea 20). Para tomar el valor 
10, la CPU debe dirigirse a la memoria V, mien- 
tras que para calcular la suma debe utilizar un 
valor numérico (20) que sigue al código de la 
instrucción. La serie efectiva de las operaciones 
a realizar entonces deberá estar organizada de 
la siguiente manera: 


1 / Toma el contenido de la memoria V 
2 / Suma a este valor el número 20 
3 / Deposita el resultado en la memoria S 


MEMORIAS DE UN SISTEMA DE MICROCALCULADOR 


En la pág. 868 se ha representado un ejemplo 
de cómo podría estructurarse y realizarse este 
programa en un microprocesador de 8 bits. 
Como ya se vio al hablar de los sistemas con 
microcalculador (págs. 125 y siguientes), un mi- 
croprocesador comprende en su interior diver- 
sos dispositivos que le permiten realizar un de- 
terminado conjunto de instrucciones según una 
precisa secuencia de pasos, 

Uno de los elementos fundamentales del orde- 
nador es el reloj (clock). Este dispositivo, que 
según el constructor puede o no estar integrado 
en el microprocesador, tiene una gran importan- 
cia, puesto que tiene la misión de sincronizar 
todas las operaciones que debe realizar la CPU 
activándola según una secuencia ordenada y 
predeterminada. 

El término reloj indica también la señal eléctrica 
emitida por el oscilador, que asume un valor ló- 
gico 1 (ON) para un cierto intervalo de tiempo, 
cuya duración va desde unos 125 nanosegun- 
dos (1 nanosegundo = 10” segundos) hasta 
unos 55 nanosegundos o menos en los siste- 
mas más rápidos, y en el intervalo siguiente, de 
igual duración, tene un valor lógico O (ver gráfi- 
co en la parte superior de la pág. 869). 

Esta señal eléctrica llega a la CPU permitiéndole 
iniciar una operación cualquiera en el instante 
en que dicha señal cambia de nivel, pasando 


del valor lógico 1 al valor lógico O (o viceversa). 
Cada operación realizada por la CPU puede du- 
rar uno o más intervalos de reloj, según el tipo 
de operación y el tipo de microprocesador, 
Ahora examinaremos con más detalle las fases 
que componen el funcionamiento operativo de 
la CPU. Se llama ciclo de instrucción el tiempo 
que necesita la CPU para leer en la memoria 
una instrucción cualquiera y realizarla. Una ins- 
trucción puede estar contenida en uno o más 
bytes de memoria. Se llama ciclo de máquina 
el intervalo de tiempo (para la máquina un inter- 
valo de tiempo es un conjunto de estados lógi- 
cos del microprocesador) durante el cual la 
CPU descarga la dirección de un byte sobre el 
bus de direcciones y la memoría busca el ele- 
mento deseado y pone su contenido en el bus 
de datos (ver segundo gráfico de la pág. 869). 
En realidad, el proceso descrito refleja sólo su- 
perficialmente el funcionamiento real de la CPU, 
que depende de forma sustancial del tipo de 
microprocesador. 

Uno de los pasos funclamentales de un ciclo de 
instrucción es la codificación y la sucesiva eje- 
cución de la instrucción. 

Para descodificar lo que le ha transmitido la me- 
moria, el microprocesador debe compararlo 
con el contenido de una tabla que enumera to- 
das las instrucciones que se le indican. 
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EJECUCION DE UN PROGRAMA 


RAM DE PROGRAMA 


0-08 ANG OA 1 La primera instrucción toma un dato 
Bit número contenido en una posición de 

memoria. Como la arquitectura de la 
máquina es de 8 bits, para 
direccionar las memorias se usan 
dos bytes: el primero contiene la 
parte “baja” de la dirección (L), es 
decir, los primeros 8 bits, y el 
segundo la parte “alta” (H), es decir, 
los bits de 9 a 16. Sumando estas 
dos partes se obtiene la dirección 


La instrucción es inmediata. El valor 
numérico a sumar se memoriza 
rápidamente después del código de 
la instrucción 


La memorización utiliza el mismo 


método de direccionamiento que la 
lectura 


RAM DE DATOS 
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2 La posición de memoria se identifica con un 
número binario de 16 bits formado por los. 
dos valores H + L 


muss» Flujo de ejecución de la línea 10 


A] 
zm Flujos de ejecución de la línea 20 
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FORMA TIPICA DE UNA SEÑAL DE RELOJ 


Tensión 


Z Período > 


— — —. —- Nivel lógico 1 


Nivel lógico O 


LECTURA DE UN DATO EN MEMORIA 


su Flujo de las direcciones 


ma Flujo de los datos 


CPU 


Cada microprocesador tiene un dispositivo lla- 
mado unidad de control (Control Unit) que, en- 
tre otras cosas, gestona una memoria de sólo 
lectura (Control Store) que contiene los códigos 
de las instrucciones que el microprocesador 
puede realizar (ver gráfico de la pág. 870). 

En el momento de la recepción de la instruc- 
ción, la CPU inicia uno o más ciclos de máquina 
según el número de bytes que acompañan di- 
cha instrucción. 


[=] 
] 


En general, lo que es necesario comprender de 
modo claro es el funcionamiento básico de la 
CPU, cuya descripción reemprenderemos cuan- 
do se traten más adelante los sistemas de mi- 
crocalculador. 

Después ilustraremos las características de al- 
gunos tipos de microprocesador en el comer- 
cio, para llegar a describir su lenguaje Assem- 
bler y los instrumentos disponibles para progra- 
mar utilizando este lenguaje. 
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Los registros 


Para realizar un programa, la CPU debe tener 
en su interior memorias de trabajo que le permi- 
tan realizar las operaciones deseadas deposi- 
tando las informaciones necesarias y efectuan- 
do lecturas y modificaciones. Estas áreas se lla- 
man registros. 

Uno de los registros, utilizado para depositar los 
valores sobre los cuales deben realizarse ¡os 
cálculos, recibe la denominación de acumula- 
dor (accumulator), 

La presencia del acumulador permite que los 
cálculos puedan realizarse mucho más rápida- 
mente (en el interior de la CPU) siempre que no 
sea posible obtenerlos operando directamente 
en la memoria de datos. Los valores existentes 
en la memoria de datos se modifican sólo al final 
del procedimiento de cálculo, que se realiza en- 
teramente en la CPU. 

En el ejemplo considerado en la pág. 868, el va- 
lor 10 se carga en el acumulador de la CPU y en 


el cálculo (siguiente instrucción), el valor 20 se 
suma a su contenido. El valor final se deposita 
en la memoria de datos, donde permanecerá 
hasta que no sea cancelado, bien porque se in- 
troduce un nuevo valor o bien porque se apaga 
la máquina. 

La alternativa a este sistema es la de escribir en 
la memoria de datos el valor 20 para añadirlo 
(siempre en la memoria) al anterior. 

Sin embargo, de este modo se tendría la nece- 
sidad de acceder a la memoria para cada dato 
a sumar. Si en lugar de sumar sólo dos números 
debiesen sumarse, por ejemplo, 7, la operación 
necesitaría 7 accesos: debería tomarse el pri- 
mer número, introducirlo en la memoria, tomar el 
segundo número, sumarlo al primero y memori- 
zar el resultado, tomar el tercer número, sumarlo 
al resultado anterior y así sucesivamente. Para 
disminuir el número de accesos a memoria, y 
por tanto para aumentar la velocidad de cálcu- 
lo, se utiliza el acumulador como memoria de 


COMPONENTES PRINCIPALES DE UNA CPU 


BUS DE DIRECCIONES 
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tránsito durante todos los cálculos. En realidad, 
algunas numeraciones elementales se realizan 
directamente en la memoria de datos; por ejem- 
plo, para incrementar en 1 el contenido de una 
memoria, existe una instrucción que no necesita 
la transferencia al acumulador, sino que realiza 
el incremento directamente. Otro registro indis- 
pensable es el contador de programa, en el 
que se memoriza, cada vez, la dirección de la 
instrucción que Jebe realizar el microprocesa- 
dor. Este registro, llamado PC (Program Coun- 
ter), contendrá un valor inicial que será la direc- 
ción de la localización de memoria que contiene 
la primera instrucción del programa a realizar. El 
ciclo de instrucción empieza cuando la CPU po- 
ne el contenido del contador del programa so- 
bre el bus de direcciones y, por tanto, toma la 
primera instrucción de la memoria. Después, la 
CPU incrementa el contenido del contador del 
programa, por lo que el siguiente ciclo de ins- 
trucción irá a tomar la siguiente instrucción de la 
memoria. Si la instrucción ocupa más de una 
posición de memoria se toma en tiempos suce- 
sivos, y la CPU incrementa cada vez el PC. Por 
ejemplo, la primera instrucción considerada en 
el gráfico de la pág. 868 (Carga el contenido...) 
está contenida en tres posiciones y, por tanto, 
debe tomarse en tres fases (la instrucción com- 
pleta necesita cuatro ciclos de máquina: tres 
para la carga de los códigos y uno para la toma 
del dato deseado). 

La CPU ejecuta las instrucciones de manera se- 
cuencial, a menos que una instrucción de salto 
(Jump o Branch) cambie el valor contenido en el 
contador de programa. 

Otro registro generalmente presente en la CPU 
es el registro de instrucción (IR, Instruction 
Register) que contiene el código de la instruc- 
ción en tanto que ésta no puede descodificarse. 
Algunos de los actuales microordenadores tie- 
nen dos registros IR, con los que es posible to- 
mar una instrucción mientras la anterior está en 
fase de ejecución. Esta técnica, llamada «pipe- 
lining», permite alcanzar velocidades de ejecu- 
ción considerablemente elevadas. 

En la CPU existen además algunos registros 
que sirven para encontrar las posiciones en que 
se encuentran los datos, posiciones que no son 
necesariamente secuenciales. 

Para acceder a algún dato que reside en memo- 
ría (para una operación de lectura o de escritu- 
ra) es necesario conocer la dirección de la posi- 
ción donde reside el dato, Por tanto, siempre 


por motivos de velocidad, se crean los conta- 
dores de datos (data counters) o registros de 
direcciones de memoria (memory address re- 
gisters) que contienen la dirección en memoria 
del dato examinado. 


Funcionamiento de la unidad central de 
proceso 


Para que la máquina pueda interpretar cada ins- 
trucción debe traducirse al correspondiente có- 
digo en notación binara, octal o hexadecimal. 
El sencillo programa considerado anteriormente 
(V = 10, S = V + 20), en la simbología com- 
prensible por el calculador se transforma en una 
larga serie de símbolos 1 y O. 

Para programar de este modo debe conocerse 
el código de cada instrucción a realizar. 

Por ejemplo, supongamos que en nues:ro pro- 
grama las instrucciones se hayan representado 
de esta manera: 


1/Carga en el acumulador el valor contenido 
en la celda cuya dirección (simbólica) es V. 
Código de instrucción =00111010= 
= (2 + 2 +2 +20 = (58)10 = (72)a = 
(SAJje”. 

La estructura que especifica la dirección (V) 
se explicará más adelante. 

2 / Suma al acumulador el valor 20 (inmediato), 
Código de instrucción =11000110= 
=> (2 +24+2+ 20 = (198)10 = (306)8 == 
(C6) 16: 

3 / Memoriza el valor contenido en el acumula- 
dor en la celda cuya dirección es S. 
Código de instrucción =00110010= 
= (24 2! + 2') = (50)10 = (628 = (32)16- 


En este punto debe proporcionarse, para cada 
una de las instrucciones que se utilizan, la direc- 
ción en que tomar o depositar los datos. 
Supongamos que el programa empieza en la 
posición de memoria (100)g o (40)¿6, y que los 
datos están memorizados a partir de la posición 
(300)a o (CO)16. Los datos (valores decimales 
10 y 20) en representación binaria, octal y hexa- 
decimal son 


(10)0 = 00001010 = (12) A (AJr6 
(20)10 = 00010100 = (24)a = (14)16 


* La notación (58),0 indica el número 58 en base 10, así 
comolas notaciones (72) y (3A), 6 indican el misro número 
expresado respectivamente en base octal y hexadecimal. 
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Estos valores deberán memorizarse en las opor- 
tunas posiciones de memoria para poder ser uti- 
lizados después por el programa. 

El aspecto final completo del programa se re- 
presenta en esta página. 

En cambio, en las págs. 873 a 875, la ejecución 
del programa se realiza paso a paso. La lectura 
de las indicaciones proporcionará una orienta- 
ción para comprender cuál es el desarrollo del 
proceso de gestión en un microprocesador. 
Para simplificar posteriormente la descripción, 


en el ejemplo se ha supuesto que pueden indi- 
carse las direcciones con sólo 8 bits. 


El empleo de los códigos hexadecimales para 
escribir un programa aun extremadamente sen- 
cillo, presenta dos principales dificultades: 


— las instrucciones (expresadas como códigos 
hexadecimales) no pueden identificarse fá- 
cilmente. La verificación del programa se 
convierte en una empresa muy ardua, que 
suele conducir a resultados inciertos 


EJECUCION DE UN PROGRAMA ESCRITO EN LENGUAJE MAQUINA 


FS A O 0, Bitnúmero 


Dirección 40 


al acumulador 


el valor que sigue E» 


45 


3A = Carga el acumulador con el 
dato contenido en la posición de 
memoria especificada en las dos 
posiciones siguientes 


14 = Valor a sumar. Es la 
traducción en hexadecimal 
del decimal 20 


32 = Transfiere el contenido 
del acumuladora la 
dirección que sigue 


Suma 14 al 
contenido del acumulador 


El valor hexadecimal A 
(decimal 10) se transfiere 
al acumulador 


En este ejemplo se han utilizado dos tipos diferentes de instrucción de carga. En la primera, la del código 3A 
(Carga el acumulador), los datos se toman a través de un direccionamiento a una posición cualquiera de 
memoria (en el ejemplo CO), también distante de la que contiene la instrucción. El segundo tpo (inmediato, 
código C6) utiliza como dato (en el ejemplo 14) el contenido de la memoria que sigue a la que contiene el 


código de instrucción 
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VARIACIONES DEL CONTENIDO DE LOS REGISTROS EN FASE DE EJECUCION 


1 Inicialmente, el PC contiene el valor (40),6, 
que direcciona la primera instrucción del 
programa. La CPU envía el contenido del PC al 
bus de direcciones e inicia el primer ciclo de 


instrucción A  =Acumulador 
1.* instrucción RI =Registro de 
6p tra 
, : = Contador de 
2.* instrucción Programa 
CD= Contador de Datos 
] 3." instrucción 


2 Después de un ciclo de máquina, la 
memoria deja disponible el código de la 
instrucción (contenido de la celda 
direccionada) en el bus de datos. El valor 3A 
se carga en el registro de instrucciones (RI) y 
la CPU incrementa el valor del CP 


3 La instrucción contenida en el registro RI 
se descodifica y pide cargar en el 
acumulador el dato que reside en la 
dirección especificada después del código 
de instrucción. 

El contenido del CP se descarga en el bus 
de direcciones y después de un ciclo de 
máquina. la memoria descarga en el bus de 
datos el código CO, que es la dirección en la 
que se encuentra el dato interesado para el 
proceso. El código CO (dirección) se carga 
en el contador de datos CD 
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4 La dirección contenida en el CDse 
descarga en el bus de direcciones. Inicia un 
nuevo ciclo de máquina al final del cual el valor 
(A) 16 se carga en el acumulador. 

Al final se incrementa el contenido del CP. 

En este momento, la primera instrucción se ha 
realizado. Por tanto termina el primer ciclo de 
instrucción, que ha necesitado tres ciclos de 
máquina 


5 Inicia el segundo ciclo de instrucción. 

La dirección contenida en el CP se envía al bus 
de direcciones. Después de un ciclo de 
máquina, la memoria deja disponible el 
contenido de la celda direccionada en el bus de 
datos (C6). 

El código C6 se cancela en el RI, y el valor del 
CP se incrementa 


A 

RI 
A 
CD 


6 La instrucción se descodifica. Su objeto es el 
de hacer interpretar a la CPU el próximo código 
no como dirección, sino como dato a añadir al 
valor del acumulador. 

La CPU activa la unidad lógico-aritmética (ALU) 
y la instrucción se ejecuta. 

Al final, el CP queda incrementado 


ETA ar 410) 


RI 
e “BA 
CD 
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7 En este punto se termina también el segundo 
ciclo de instrucción y se inicia el tercero. 

El contenido del CP se descarga en el bus de 
direcciones. Después de un ciclo de máquina, la 
memoria deja disponible el código de 
instrucción que se carga en el RI. 

El CP se incrementa 


8 La instrucción se descodífica: el sistema debe 
transferir el contenido desde el acumulador a la 
dirección que sigue al código de instrucción. 

La CPU descarga en el bus de datos el 
contenido del CP. Después de un ciclo de 
máquina, el valor C1 se cargará en el CD, dada 
su naturaleza de dirección y el tipo de 
instrucción. 


9 Tercer ciclo de máquina de la tercera 
instrucción. 

La CPU toma el contenido del acumulador y lo 
deposita en la celda direccionada por el CD. 
Esta operación concluye la ejecución de 
programa. 
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— el direccionamiento de las variables, que no 
utiliza nombres simbólicos, se limita a recor- 
dar al programador el contenido de cada po- 
sición de memoria 


Para eliminar estos inconvenientes se ha creado 
el lenguaje Assembler que, a pesar de estar 
orientado más a la máquina que al usuario, per- 
mite una programación relativamente sencilla. 
Las instrucciones Assembler se identifican con 
un código mnemónico, compuesto normalmen- 
te de tres letras, y las direcciones pueden pro- 
porcionarse con una etiqueta (label). Por ejem- 
plo, normalmente las instrucciones «carga el 
acumulador Á con...», es decir, el código 34, 
tienen como simbolismo las letras LDA (LoaaD 
A); asociando a la memoria CO la etiqueta XY, la 
instrucción completa se convierte en 


LDA XY 
(SA) (C0) 


= carga A con el contenido de la 
memoria de nombre XY 


Arquitectura interna del 
microprocesador 


Un microprocesador comprende en su interior 
un bus de comunicaciones entre los diversos 
componentes y un conjunto de registros. 
Generalmente se dice que un microprocesador 
es de 8 bits si el acumulador (uno o más regis- 
tros de este tipo) es de 8 bits, de 16 bits si es de 
16 bits, etc. Se comprende que es conveniente 
que la amplitud del bus interno, utilizado para 
todas las comunicaciones entre los registros y la 
ALU y para el intercambio de informaciones con 
el exterior, esté estructurado con el mismo nú- 
mero de bits del acumulador. 

En realidad no siempre es así. Por ejemplo, el 
Motorola 68000 está constituido por 16 registros 
de 32 bits, pero su bus de datos interno (y exter- 
no) es de 16 bits. 

Esta limitación se debe solamente a los límites 
impuestos por la tecnología empleada, que no 
permite insertar un número de patillas superior a 
64 en la cápsula del microprocesador, 

Esta cápsula se llama DIP (Dual In-line Packa- 
ge) y es el soporte que permite conectar el chip 
a los otros circuitos del sistema. 

Otro parámetro que caracteriza a los micropro- 
cesadores es el número de bits que viajan al 
mismo tiempo, en un determinado momento, 
por el bus de direcciones. 

Este parámetro es muy importante como indice 
de las prestaciones del microprocesador, pues- 
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to que indica cuántas celdas de memoria pue- 
den ser direccionadas directamente por la CPU, 
es decir, a cuántas celdas puede acceder con 
un único ciclo de máquina. 

Si un bus de direcciones es de 16 bits, general- 
mente significa que existen 16 patillas en el mi- 
croprocesador, cada una de las cuales está co- 
nectada a una pista diferente del circuito impre- 
so. 

Utilizando 16 bits es posible direccionar directa- 
mente 2'* — 1 = 65535 celdas de memoria. 
Dado que generalmente cada celda de memo- 
ria contiene 8 bits, significa que es posible di- 
reccionar 65535 celdas de un byte, o también la 
memoria visible puede ser de 64 kbytes como 
máximo (recuérdese que 1 kby:e vale 1024 by- 
tes y que 1 Mbyte vale 1,048.576 bytes). 
Principalmente para mantener bajo el costo del 
microprocesador, varios fabricantes tienen en 
catálogo productos que no presentan 16 patillas 
para las direcciones en el chip, pero que tam- 
bién pueden direccionar 65536 celdas de me- 
moria y a veces también más. En estos casos, 
durante un ciclo de máquina se envía al bus de 
direcciones (formado por ejemplo por 8 pistas) 
la primera mitad de la dirección (normalmente la 
parte más alta de la dirección) y en el ciclo de 
máquina siguiente, la segunda mitad, 

En este caso se mantiene el valor máximo de 
direccionamiento, pero para cada acceso a la 
memoria se emplea el doble de tiempo, y esto 
incide en las prestaciones de todo el sistema, 
Por ejemplo, el microprocesador Intel 8088 tiene 
una arquitectura interna de 16 bits (tanto para 
los registros como para el bus interno) pero co- 
munica con el exterior sólo con 8 bits, 

Del mismo fabricante existe el modelo 8086 que 
interiormente es idéntico al 8088, pero dispone 
de 20 líneas para el direccionamiento, 
También debe tenerse presente que tener po- 
cos hilos simplifica notablemente las conexio- 
nes. Por otra parte, el costo de la memoria siem- 
pre es más bajo, mientras que aumentan las ne- 
cesidades de tener siempre más espacio dispo- 
nible para datos y programas que deben elabo- 
rarse velozmente. 

Por este motivo, muchos microprocesadores de 
la nueva generación tienen arquitecturas que ya 
no son de 8, sino de 16 bits, y algunos ya de 32 
bits, con 20 a 32 bits de direccionamiento, La 
ampliación de los bus y de los registros también 
permite mejorar la precisión de los cálculos. En 
un acumulador de 8 bits, el número más grande 


que puede representarse es 256, mientras que 
si el acumulador es de 16 bits, se llega a 65636, 
y si es de 32 bits, a más de 4.000 millones. La 
memoria direccionable va desde el megabyte 
(20 bits de direccionamiento, Intel 8086) y 16 
megabytes (24 bits de direccionamiento, Moto- 
rola 68000) a los 500 megabytes (29 bits de di- 
reccionamiento, Hewlett-Packard 9000). 

A continuación supondremos que se trabaja 
con un microprocesador que dispone de una 
arquitectura de 8 bits (acumulador y bus inter- 
no) y que comunica exteriormente con 16 bits 
(Program Counter, Data Counter). 


El costo de las conexiones internas limita el nú- 
mero de los registros en el interior de la CPU, 
pero la tendencia actual de tener microprocesa- 
dores siempre más rápidos está conduciendo a 
utilizar un elevado número de registros. 


Unidad lógico-aritmética (ALU) 

Además de los registros, la CPU contiene un 
conjunto de componentes necesario para reali- 
zar algunas funciones esenciales de cálculo: es- 
te conjunto toma el nombre de ALU (Arithmetic 
Logic Unit, unidad lógico-aritmética). 

Los dispositivos que componen una ALU permi- 
ten que el microprocesador realice las siguien- 
tes operaciones (ver el gráfico en la parte supe- 
rior de la página siguiente): 


— sumas 

— complemento de una palabra 

— restas (no siempre) 

— operaciones lógicas (AND, OR, NOT) 

— desplazamiento (shift) de uno o más bits a la 
izquierda o a la derecha. 


Evidentemente, todas esas operaciones pue- 
den realizarse sólo en números binarios. 

Para poder comprender el funcionamiento de 
una ALU, por tanto, será necesaria una descrip- 
ción más particularizada de las reglas de la arit- 
mética binaria. En consecuencia, a continuación 
se mostrarán los circuitos y dispositivos que rea- 
lizan estas reglas. 


Suma binaria. La suma binaria sigue reglas 
muy similares a las válidas en base decimal, 
con la ventaja de ser mucho más sencllas, 

La operación fundamental es la suma de dos 
bits; las posibles combinaciones de dos bits a 
sumar son las siguientes: 


Primer Segundo Suma  AÁcarreo' 
sumando (A) sumando (B)  (S) (0) 
0 0 0 0 
0 1 1 0 
1 0 1 0 
1 1 0 1 


El primer sumando se ha indicado con el simbo- 
lo A, el segundo con B, la suma de los dos bits 
con S y el acarreo con el símbolo C, de la pala- 
bra inglesa carry, En cada ALU siempre hay un 
circuito llamado sumador (adder) que puede 
efectuar la suma de dos números binarios de 
longitud igual a 8 o a 16 bits, según el tipo de 
microprocesador, 

Antes de pasar a la descripción de un circuito 
sumador para números de 8 o 16 bits, analizare- 
mos cómo puede realizarse un sumador para 
dos bits. 

La función S (suma) puede realizarse con el cir- 
cuito lógico indicado en la pág. 878 abajo, don- 
de el acarreo C se ha realizado con un simple 
circuito AND, como puede comprobarse cons- 
truyendo la tabla de verdad, 

Un circuito como el mostrado se llama semisu- 
mador (half-adder). 

Ahora podría pensarse en realizar un circuito 
sumador de 8 bits con 8 semisumadores pues- 
tos en paralelo como se muestra en la ¡lustra- 
ción de la pág. 879, donde el circuito semisu- 
mador del ejemplo anterior se ha representado 
con bloques indicados con las letras HA, 

Sin embargo, esta solución no es aplicable, 
puesto que con el semisumador no pueden te- 
nerse en cuenta eventuales acarreos generados 
por las etapas de más a la derecha. Efectiva- 
mente, siempre refiriendonos al gráfico de arri- 
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ESTRUCTURA INTERNA DE UN MICROPROCESADOR 


IE DIRECC! 6 bits 


complementado 


.. Conexiones internas de la ALU 


um Líneas de control internas 


ESQUEMA DE SUMADOR DE DOS BITS (HALF-ADDER) 


(NOT Aj AND (B) 


S=[(NOT A)AND(B)IXOR((A)AND(NOT B)] 


TABLA DE VERDAD 
A B S 


Entradas (A, B) 2) —or de 
— mt, 00 meto 
—— Acarreo (C) exclusivo = a 


SUMADOR DE OCHO BITS 


HA = Semisumador 

A = Primer sumando 
B = Segundo sumando 
S = Suma 

C = Acarreo 


TABLA DE VERDAD DE UN 
SUMADOR COMPLETO 
(FULL-ADDER) 


ba, si los bits menos significativos (AO y BO) de 
los dos sumandos fuesen igual a 1, el acarreo 
CO = 1 no podría sumarse a la siguiente etapa 
(junto con los bits A1 y B1) y, por tanto, no po- 
dría tenerse en cuenta. 


Para superar este problema se recurre a la utili- 
zación del sumador completo, o full-adder, que 
puede sumar tanto los dos bits como el acarreo 
de la suma de los bits inmediatamente anterio- 
res. La tabla de verdad de un sumador comple- 
to, mostrada aquí al lado, es más complicada 
que la del semisumador, así como su realiza- 
ción práctica (mostrada en la pág. 8806, arriba). 
Una de las principales diferencias con respecto 
al circuito considerado anteriormente consiste 
en el tipo particular de AND utilizado, que debe 
prever tres entradas: dos para los bits de suma 
(como el circuito anterior) y uno para el acarreo 
de la etapa anterior. En el ejemplo citado, el su 
mador completo está dividido en dos partes: la 
primera realiza el cálculo de la suma (columna 
Si de la tabla de verdad), la segunda calcula el 
acarreo (columna Ci ds la tabla de verdad). 
Puede construirse un circuito que pueda sumar 
dos números de 8 bits teniendo en cuenta los 
acarreos y utilizando un cierto número de suma- 
dores completos. Este circuito se ha esquemati- 
zado en la pág. 880, abajo. Está compuesto de 
tantos sumadores completos en paralelo como 
cuantos bits hay que sumar. Una vez generado 
el acarreo CO de la suma de los dos bits menos 
significativos (AU y BO), éste pasa a la siguiente 
etapa, donde se suma a los bits A1 y B1. Así se 
generan la suma S1 y el acarreo C1, que debe 
enviarse a la siguiente etapa. 
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ESQUEMA DE PRINCIPIO DE UN SUMADOR COMPLETO (FULL-ADDER) 


Ai 


B 
(NOT AAND(Bi) 
| AND(NOT Ci. 1) As As AND Ci-1 


Bi¡ AND Ci-1 


Ai AND (NOT Bi) 
AND(NOT C;- 1) 


de 


(NOT AiJAND(NOT Bi) 
AND(NOT C;- 1) 


y 
» 


/ A; AND B¡ AND C; 


El sumador completo 
(full-adder, FA) normalmente se 
indica con el simbolo 


ESQUEMA DE UN SUMADOR PARALELO DE OCHO BITS 


A = Primer sumando ms Entrada sumandos 
B = Segundo sumando mm Salida suma 

S — Suma == Flujo acarreos 

C = Acarreo 


AO BO 
Oo O o] Oo O O 
El acarreo de la Co La primera 
Última etapa se + etapa no tiene 
convierte en el la entrada del 


bit número 9 de acarreo 
la suma 
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El procedimiento se repite hasta la octava etapa 
en la que el acarreo C7 se convierte en el bit 
más significativo S8 de la suma. 

Como puede verse, el resultado de la suma de 8 
bits puede ser un número de 9 bits. 


Resta binaria. El mismo procedimiento utilizado 
para la construcción de un sumador binario pa- 
ralelo puede utilizarse para la construcción de 
un restador binario. 

La tabla de verdad del circuito se muestra aquí 
abajo, donde D indica la diferencia entre los dos 
bits (A y B) y C el préstamo. 

Cuando A = 0 y B = 1, para calcular la diferen- 
cia (0 - 1) es necesario tomar en préstamo un 1, 
de forma totalmente análoga a lo que se hace 
en la resta decimal. 

Sin embargo, normalmente en las ALU de los 
microprocesadores no hay presente ningún cir- 
cuito restador, puesto que la operación de sus- 
tracción puede hacerse fácilmente utilizando 
circuitos ya existentes en la ALU: el sumador es 
el complementador. Este hecho conduce evi- 
dentemente a una degradación de las presta- 
ciones del sistema en términos de velocidad, 
pero hace la realización de la ALU más sencilla 
y menos costosa. 


Complementación. La aritmética decimal per- 
mite ilustrar de forma sencilla el modo de reali- 
zar la resta con una operación de complemen- 
tación y una suma. Restar un número decimal 
de otro equivale a sumar a este último el com- 
plemento a 10 del sustraendo, 

El complemento a 10 de un número se obtiene 
restando de 10 el valor de dicho número, Por 


TABLA DE VERDAD DE UN 
RESTADOR BINARIO 


ejemplo, el complemento a 10 de 3 es 7 (10— 3 
= 7), porque para obtener el número 10 debe 
añadirse 7 a la cifra 3. 

Para calcular una resta con el método del com- 
plemento, en primer lugar debe calcularse el 
complemento a 10 del sustraendo y después 
sumar el minuendo a este resultado, despre- 
ciando un eventual acarreo final. 

Por ejemplo, considerando la resta en el sistema 
decimal: 


8-3=5 


el complemento a 10 de 3 es 7, por lo que se 
tiene 


Por tanto, el resultado es 5 y debe despreciarse 
el acarreo 1, 

Sin embargo, podría preguntarse por qué maoti- 
vo se calcula la resta con la suma de un número 
complementado cuando, para encontrar el com- 
plemento del número también debe realizarse 
una resta. 

El motivo es muy sencillo. El equivalente binario 
del complemento a 10 es el complemento a 2, 
que es muy fácil de calcular. 

El complemento a 2 de un número binario se 
obtiene sustituyendo el símbolo O por el símbolo 
1 y viceversa, y sumando 1 al número binario 
así obtenido. 

La operación de sustitución del símbolo 0 por el 
1 y viceversa se llama complemento a 1. 

Por ejemplo, el complemento a 1 del número 
10101110es01010001.El complemen- 
to a 2 de este último número será: 


01010001+ (complemento a 1) 


01010010 (complemento a 2) 
Ahora veremos cómo se realiza la resta binaria 
mediante la complementación. Consideremos a 
continuación la resta 


Minuendo Sustraendo 
1 1104071:0=101,01 717.0 


El complemento a 2 del sustraendo ya se ha en- 
contrado y es igual a 01010010, por lo que 
se tiene: 
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111071010+ 
01010010= 


1004 + 7100 
Bit de acarreo 
a despreciar 


Resultado 


Como en el caso decimal, el bit de acarreo se 
desprecia. Comprobemos la exactitud de la 
operación transformando los números binarios 
en decimales 


Binario Decimal 
Minuendo 11101010- 234 — 
Sustraendo 10101110= 174 = 
Resultado 00111100 60 


En la práctica, en los circuitos de la ALU, la ope- 
ración de complementación a 2 se realiza de 
forma diferente a lo que se ha descrito anterior- 
mente. 

Se toma el número a complementar, por ejem- 
plo10101110y se lee de derecha a izquier- 
da. Cuando se encuentra el primer 1 se deja 
inalterado, mientras que los siguientes símbolos 
se invierten, cambiando O por 1 y viceversa: 


01010010 


El resultado es idéntico al ya obtenido. 


En esta página se muestra un circuito que pue- 
de calcular el complemento a 2 de un número 
de 8 bits de la forma descrita. Con el símbolo 
CA se ha indicado el circuito que proporciona la 
inversión de los bits del número binario a com- 
plementar. 

La operación de complementación, además, 
está subordinada a la presencia de la señal C. 
Si es igual a 1, el número binario se complemen- 
ta; de otra forma queda sin alteración. Esta se- 
ñal se utiliza para controlar el funcionamiento 
del circuito, que tanto puede realizar la suma 
como la resta. En la página siguiente, arriba, se 
muestra un esquema que puede controlar las 
operaciones de suma y resta entre dos operan- 
dos según el estado (1, 0) de la línea C. Si se 
pide la suma, la señal de complementación (C) 
es igual a O, el segundo operando queda sin 
alteración y se calcula una suma. En cambio, si 
se pide la resta, la señal de complementación 
es igual a 1, y el primer operando se suma al 
complemento a 2 del segundo operando. 


Multiplicación binaria. Las reglas de la multipli- 
cación binaria son idénticas a las de la multipli- 
cación decimal, como puede deducirse del 
ejemplo indicado a la derecha. 

Cada producto parcial es igual al multiplicando 
si el multiplicador es 1, o bien es igual a 0 si el 
correspondiente bit del multiplicador es 0. 


CIRCUITO COMPLEMENTADOR A 2 PARALELO 


As As 


Bits del número complementado 
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Az Ar 


Bits del número 
a complementar 


Ap 


Ar Señal de 
complementación 


ESQUEMA DE UN SUMADOR RESTADOR 


Primer 
operando 


Segundo 


operando 


Resultado 


Señal de 
complementación 


MULTIPLICACION BINARIA 


Multiplicando 


4 
1 


1 


Multiplicador A a 
pra 


Los productos parciales calculados deben si- 
tuarse y sumarse oportunamente. Vemos que 
el producto está compuesto por un número de 
bits igual a la suma del número de los bits de los 
operandos. En este caso, el producto tiene una 
longitud de 8 bits, porque el multiplicando y el 
multiplicador tienen 4 bits cada uno. En la pág. 
884 se muestra un circuito que puede efectuar 
la operación de multiplicación de dos operan- 
dos de 3 bits cada uno. Está compuesto por dos 


Productos parciales 


1 Resultado 


circuitos llamados registros de desplazamien- 
to (shift registers), por un sumador de 6 bits, 
por un acumulador de 6 bits y por una serie de 
cinco circuitos AND. 

Normalmente, el circuito multiplicador no está 
inserto en la ALU de los microprocesadores utili- 
zados en los ordenadores personales por moti- 
vos de sencillez y de costo. En estos casos, la 
multiplicación se realiza con el método de las 
sumas repetidas. 


883 


A. Tiracchia/AFE 


CIRCUITO MULTIPLICADOR DE TRES BITS 


Un momento de los trabajos de conexión y 
verificación de los enlaces exteriores. 


Multiplicador 


Acumulador (6 b 


Con este sistema se calcula la multiplicación su- 
mando el multiplicando un número de veces 
igual al multiplicador. Es decir, la multiplicación 
8 x 3 es equivalente a 8 + 8 + 8. En otros tipos 
de máquina se han previsto circuitos similares al 
indicado para realizar la multiplicación por hard- 
ware y, por tanto, mucho más rápidamente. 


División binaria. La división binaria puede ob- 
tenerse con un método similar al utilizado para 
la multiplicación. 

Es posible realizar circuitos especializados para 
la división, pero normalmente no están insertos 
en la ALU, y la división se calcula con el método 
de las restas sucesivas. 


Además de las aplicaciones aritméticas, la uni- 
dad lógico-aritmética puede realizar las opera- 
ciones booleanas y de desplazamiento. Las 
operaciones booleanas son operaciones lógi- 
cas realizadas sobre datos binarios según las 
reglas de la aritmética de Boole*. 

Las operaciones de desplazamiento son opera 


* George Boole (1815-1864) está considerado unánime- 
mente como el padre de la aritmética de los calculadores. 
Por primera vez formuló un conjunto de reglas de tipo alge- 
braico que permitían realizar las cuatro operaciones utili- 
zando las funciones lógicas AND, OR, NOT. 


ciones de desplazamiento de los bits sencillos 
que componen una palabra binaria. 

Estas operaciones son muy utilizadas en las 
programaciones en lenguaje Assembler. puesto 
que permiten realizar de forma sencilla opera- 
ciones de análisis y de comparación de los bits 
sencillos de una palabra binaria. 


Operaciones booleanas. Las operaciones lógi- 
cas que se realizan más habitualmente en el in- 
terior de la ALU son operaciones AND, OR, NOT 
y XOR (OR exclusiva). 

Estas operaciones ya se han descrito (pág. 72 y 
siguientes), y se ha visto cómo pueden repre- 
sentarse utilizando la tabla de verdad. Para 
mayor comodidad del lector, en el primer gráfi- 
co de abajo se han representado las tablas de 
verdad de las funciones AND, OR, XOR, NOT, 
Suponiendo que la longitud de palabra de la 


ALU sea de 8 bits, la operación de AND entre 
dos palabras binarias se realiza efectuando la 
AND entre los bits correspondientes de las dos 
palabras. Por ejemplo, la operación AND entre 
las dos palabras binarias 01110110y1110 
0 101 se obtiene como se indica en el segundo 
gráfico de abajo, donde los bits menos significa- 
tivos de las dos palabras (LSB, los símbolos bi- 
narios de más a la derecha) se han escrito en la 
primera línea y los bits más significativos (MSB, 
los de más a la izquierda) en la última. El circuito 
que proporciona la AND de dos palabras bina- 
rias de 8 bits se muestra en la pág. 886. 

En el esquema se utilizan un registro acumula- 
dor para memorizar el primer operando y un re- 
gistro provisional para memorizar el segundo 
Operando. El resultado de la operación AND se ' 
memoriza en un tercer registro, y después se 
envía al acumulador. 


TABLA DE VERDAD DE LAS FUNCIONES LOGICAS AND, OR, XOR, NOT 


AND DE DOS PALABRAS BINARIAS 


4 


0 
0 
1 
1 
0 


(MSB) 
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CIRCUITO QUE CALCULA LA AND DE DOS PALABRAS BINARIAS 


MSB Acumulador amo 
| mM | í T ' 
o | 1 | 1 | 1 | 0 | 1 | 1 | ( E 1." operando 2.” operando 


Registro provisional 


Registro provisional 
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CIRCUITO QUE CALCULA LA OR DE DOS PALABRAS BINARIAS 


MSB Acumulador 


JE 


LSB 


0 | il | 1 | 0 aaa 1.5 operando 


Registro provisional 


Registro provisional 


En cambio, la operación OR puede obtenerse 
como se muestra arriba, donde los operadores 
AND se han sustituido por operadores OR. 

Para el cálculo de las funciones lógicas no es 
necesario insertar en la ALU todos los circuitos 
correspondientes. Normalmente sólo se han 
previsto circuitos de dos tipos: o el par NOT y 
AND o bien el par NOT y OR. Esto es porque 
cualquier función booleana puede realizarse 


con estos pares de operadores. Por ejemplo, la 
función booleana A OR B es equivalente a 


NOT [(NOTA) AND (NOTB)] 
Por tanto, para realizar la OR de dos palabras 
binarias A y B, basta con negar las dos palabras 
(NOTA, NOTB), calcular la AND y después ne- 
gar el resultado. 
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CIRCUITO QUE CALCULA LA NOT DE UNA PALABRA BINARIA 


Acumulador 


LSB 


MIE AN 
4 110 ol go 
EE A 


Operando negado 


Desplazamiento 


La rotación es un 
desplazamiento con 
traslado del acarreo 


Interruptor para la operación de rotación 


Arriba se ha representado el esquema de un cir- 
cuito que calcula la función NOT. 


Operaciones de desplazamiento. En las ope- 
raciones de desplazamiento, los símbolos (0, 1) 
de la palabra binaria se hacen correr hacia la 
derecha o hacia la izquierda. Arriba se ha mos- 
trado el desplazamiento de una palabra binaria 
hacia la izquierda. Generalmente, el bit más sig- 
nificativo después del desplazamiento, se pone 
en un bit de acarreo (bit de carry). 

Además de la operación de desplazamiento, 
puede ser interesante rotar la palabra; en este 
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caso, el contenido del bit de acarreo se inserta 
en el bit menos significativo de la palabra bina- 
ria resultante después del desplazamiento. 
Las operaciones de desplazamiento y de rota- 
ción pueden realizarse un número de veces pre- 
fijado tanto hacia la izquierda como hacia la 
derecha. Desplazar un puesto hacia la izquie"- 
da equivale a multiplicar por 2, y un puesto ha- 
cia la derecha equivale a dividir por 2: Más en 
general, el desplazamiento de n posiciones ha- 
cia la izquierda equivale a la multiplicación de 
2”, mientras que desplazar n posiciones hacia la 
derecha significa dividir por 2”. 


El registro de estado 


En la unidad lógico-aritmética, la ejecución de 
las operaciones hace indispensable el uso de 
indicadores que avisen si se ha verificado o no 
una cierta condición. 

Estos indicadores, llamados normalmente flags, 
están reagrupados en un registro de la ALU. 


Cada uno de ellos está representado por uno de 
los bits de este registro y asume el valor 1 o 0 
según que la condición bajo control se verifique 
o no. El registro que contiene los flags se llama 
registro de estado (Status Register); el número 
de bits que lo constituye varía con el tipo del 
microprocesador (ver gráfico de abajo). 


REGISTRO DE ESTADO 


us Líneas datos ALU 
=== Controles 


MSB = bit número 7 


Registro de estado 


ww Intercamb. datos e instruc. 
sw» Líneas de direccionamiento 


LSB = bit número 0 ] 


| | A Paridad 
Medio acarreo (también HC) 
Negativo (signo) 


Desbordamiento 
Cero 
Acarreo 
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Normalmente, en el registro de estado hay los 
siguientes flags: 


Acarreo (Carry) 

Cero (Zero) 
Desbordamiento (Overflow) 
Negativo (Negative o Sign) 
Medio Acarreo (Half Carry) 
Paridad (Parity) 


Acarreo. El flag de acarreo se pone a 1 si la 
última operación ha generado un acarreo sobre 
el bit más significativo (MSB). Se utiliza er la su- 
ma de números compuestos por más palabras 
(por longitud de palabra se entiende el número 
de bits presente en el acumulador). 

En las operaciones de desplazamiento, el flag 
de acarreo se utiliza como si la palabra estuve- 
se compuesta por un bit de más (el bit de aca- 
rreo): el bit «descargado» se coloca en el aca- 
rreo (ver gráfico de abajo). En algunos micro- 
procesadores, este sistema permite dejar dispo- 
nible una instrucción que activa el desplaza- 
miento «circular» de los bits utilizando un bit de 
acarreo (ver gráfico de la página siguiente). 


Cero. El flag de cero se pone a 1 si el resultado 
de la última operación realizada ha sido O. Es 
muy utilizado en los programas Assembler para 
salir de un ciclo (test de cero),o bien en la ins- 
trucción de comparación. 


Desbordamiento. El flag de desbordamiento 
asume el valor 1 cuando el resultado de la últi- 
ma operación no es correcto a causa de un aca- 
rreo después de la cifra más significativa. Nor- 
malmente, el último bit (MSB) es el bit del signo. 
Esto significa que hay un acarreo sobre el pe- 
núltimo bit y, por tanto, el resultado no entra en 
el espacio disponible. Por ejemplo, si se suma el 
número (64),4 con el número (96),/ se obtiene, 
teniendo en cuenta que el último bit es el del 
signo (0 si es positivo, 1 si es negativo): 
Bit del Bit más 
signo ¿"significativo 
ÍL-=-01000000 
01100000 


—=10100000 


Acarreo que produce un desbordamiento y el 
bit O de registro de estado se pone a 1. 


(2* = 64 decimal) 
(2* + 2* = 96 decimal) 


OPERACION DE DESPLAZAMIENTO CON USO DEL BIT DE ACARREO 


MSB Desplazador 


LSB 


Desplazador cargado 
inicialmente con el dato a 
desplazar (por ejemplo, 
11000100) 


LILLE] form 


El contenido se desplaza una 
7 posición a la derecha. En LSB 


se coloca el valor O 


0 


El primer bit del dato, que se perdería por efecto 
del desplazamiento, se transfiere al registro de estado en la posición 7 
(partiendo de 0), es decir, en el flag de acarreo 
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Registro de estado 


ROTACION A LA IZQUIERDA UTILIZANDO EL BIT DE ACARREO 


MSB 


LSB 


Desplazador. 
Situación inicial 


'EELLLL cy 


Desplazador. 
Situación final 


Registro de estado 


Después del desplazamiento, en el LSB del desplazador 
se transfiere el contenido del acarreo. Esto equivale a un 
desplazamiento «circular» del contenido: MSB se 
convierte en LSB, y todos los demás bits se desplazan 
una posición a la izquierda 


Negativo. Es el flag del signo, y se pone a 1 
cuando a la salida de la última operación reali- 
zada el bit más significativo (MSB) vale 1. 

Este bit también se llama «bit negativo», puesto 
que en la notación en complemento a 2, el MSB 
indica el signo con la convención: 


!l 


0 
1 


signo positivo 
signo negativo 


El bit del signo se utiliza para realizar controles 
sobre el signo del resultado de una operación 
(positivo o negativo). 


Medio acarreo. El flag de medio acarreo se utili- 
za exclusivamente en los microprocesadores de 
8 bits que trabajan con aritmética BCD y se po- 
ne a 1 si la última operación ha generado un 
acarreo sobre los primeros 4 bits de la palabra. 
Para representar cada cifra decimal, el código 
BCD utiliza 4 bits*, y normalmente en un micro- 


* El código BCD está compuesto por 4 bits con su significa- 
do normal de potencias de 2 (8, 4, 2, 1) y excluye todas las 
configuraciones que daríar un valor decimal superior a 9. 
Recuérdese que con 4 bits se pueden escribir números bi- 
narios hasta el valor 8 + 4 + 2 + 1 = 15 (decimal). 


procesador de 8 bits caben dos códigos BCD 
en cada palabra. En una operación de suma po- 
dría tenerse un acarreo entre la cifra BCD me- 
nos significativa (primeros 4 bits) y la siguiente 
(últimos 4 bits). En este caso, el bit de medio 
acarreo (o intermediate carry) se pone a 1. 


Paridad. El flag de paridad se pone a 1 si, en el 
resultado de una operación, el número de bits 
que tienen valor 1 es par (paridad par). También 
existe la posibilidad de tener la paridad impar: el 
bit, o flag, de paridad se pone a 1 cuando el 
número de bits de valor 1 es impar. 

El control de paridad se utiliza en la manipula- 
ción de los caracteres o en la transmisión a los 
dispositivos externos. En este último caso es im- 
portante saber si cada carácter ha sido recibido 
correctamente. El control se realiza en el dispo- 
sitivo receptor. 

Por ejemplo, en caso de error por inversión de 
un bit (un bit a 1 pasa a ser 0, o viceversa) el 
control de paridad resulta erróneo, y se pide la 
retransmisión del carácter. Sin embargo, este 
sistema no ofrece un elevado grado de seguri- 
dad, puesto que si se verifica una doble inver- 
sión, el control de paridad no evidencia el error. 
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J. PickerellMarka 


Línea de montaje de placas de ordenador. 


Normalmente, en los intercambios de datos en 
el interior de un microprocesador no se realizan 
controles de paridad. 


Flags particulares. En algunos microprocesa- 
dores existen otros flags, como por ejemplo el 
flag de habilitación de la interrupción (interrupt 
enable), que se pone a 1 cuando es posible in- 
terrumpir la función que la CPU está ejecutando. 
En el caso de que un dispositivo tenga necesi- 
dad de ser servido envía, sobre una adecuada 
línea, una señal de interrupción a la CPU. Esta 
señal sólo será atendida si el bit de interrupción 
está a 1. En otras palabras, la unidad de control 
puede servir un dispositivo externo sólo cuando 
existe una habilitación a las interrupciones. 

Si al producirse una petición de interrupción el 
flag de interrupción está habilitado, la unidad de 
control manda una serie de señales que envían 
a ejecución una rutina de servicio. 

Esta rutina suspende el programa que está en 
ejecución en aquel momento, salvando el conte- 
nido de los registros (contador de programa, 
acumulador, etc.) en la pila (stack). En base al 
tipo de interrupción se realiza un programa de 
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servicio específico y, al final, atendida la peti- 
ción del dispositivo externo, se reemprende la 
ejecución del programa suspendido anterior- 
mente. El programador tiene facultad de deshea- 
bilitar las interrupciones. En algunos casos, zo- 
nas de programa particularmente críticas no 
pueden interrumpirse: entonces la interrupción 
se deshabilita, y las eventuales peticiones se 
atienden sólo al final de estas fases. También la 
CPU puede deshabilitar automáticamente las in- 
terrupciones, y esto sucede, por ejemplo, en la 
inicialización del sistema o cuando ya está en 
curso una interrupción. 

Es muy importante tener presente que en un mi- 
croprocesador, los flags de estado no siempre 
están a cero antes de la ejecución de un ciclo 
de instrucción. 

Esto significa que pueden tenerse flags a 1 no 
porque hayan sido puestos en este estado por 
la instrucción en curso, sino como resultado de 
una instrucción anterior, Por tanto, es necesario 
que al escribir un programa Assembler, el pro- 
gramador sepa correctamente, antes de efec- 
tuar un test, qué flags han intervenido en las di- 
versas instrucciones. 


El buffer de la ALU 


Un último elemento presente en la ALU es un 
registro acumulador de caracteres provisional, 
utilizado como memoria de almacenamiento du- 
rante los cálculos (gráfico de abajo). Por ejem- 
plo, al sumar das números, el primero de ellos 
se deposita en el acumulador, el segundo (en el 
ciclo de instrucción siguiente) se memoriza pro- 
visionalmente en este registro buffer. Los circui- 
los ALU proceden a realizar la suma de los con- 
lenidos del acumulador y del buffer, depositan- 
do el resultado en el acumulador, 


La unidad de control 


La existencia en la ALU de los diversos disposi- 
tivos que permiten la realización de las opera- 
ciones aritméticas, booleanas y de desplaza- 
miento no es suficiente para garantizar el co- 
rrecto funcionamiento del procesador. 

Todas las operaciones que la unidad lógico- 
aritmética puede realizar están gestionadas por 
la unidad de control. 

El primer paso de la secuencia de ejecución de 
una instrucción consiste en la descodificación 
del contenido del registro de instrucciones. 


ESQUEMA COMPLETO DE UNA CPU 


Datos 
Registros 


Circuitos que constituyen 
la ALU 


Controles 
Direcciones 


Señales internas 
de la ALU 


Registros e 
- 
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En base al tipo de instrucción, o sea según el 
código binario contenido en IR, la unidad de 
control genera una secuencia de señales de ha- 
bilitación que permite a los elementos de la ALU 
recibir los datos en el preciso instante en que 
son llamados para realizar sus funciones. 

En las págs. 894 a 896 se ilustra la ejecución de 
una instrucción de desplazamiento a la izquier- 
da del contenido del acumulador. 

Todos los dispositivos internos de un micropro- 
cesador intercambian informaciones entre sí y 
con el exterior siviéndose de las mismas líneas. 
La unidad de control (CU, Control Unit) tiene la 
misión de permitir el acceso al bus a un solo 
dispositivo cada vez y desconectar en el mismo 


instante todos los demás. Los dispositivos co- 
nectados al bus están provistos de circuitos de 
entrada/salida particulares, llamados «de tres 
estados» (three-states), que se conectan al bus 
sólo con la llegada de una señal de habilitación. 
Este procedimiento también se aplica a los dis- 
positivos conectados a los bus externos (circui- 
tos 1/O, memorias, etc.). En este caso, en los 
chips se ha previsto una patilla de selección, lla- 
mado Chip Enable o Chip Select, conectada a 
una línea de control exterior. Bajo el control del 
microprocesador, esta línea permite habilitar 
uno de los dispositivos y acceder al bus, al rmis- 
mo tiempo que se deshabilitan todos los demás 
(ver gráfico de la pág. 897). 


EJECUCION DE UNA INSTRUCCION DE DESPLAZAMIENTO 
A LA IZQUIERDA EN LA CPU 


mo Líneas ALU 
um Bus de datos 


mz Controles 


Registros 
(dato = 00000100) 


1 Estado inicial de la CPU. El acumulador A contiene 
el dato a desplazar, y el registro de instrucciones IR 
contiene el código de la instrucción a realizar 
(desplazamiento a la izquierda) 
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2 La unidad de control descodifica y 
reconoce la instrucción. La primera 
señal de control activa la 
transferencia del contenido del 
acumulador al bus de datos interno 


3 La siguiente señal de control activa 
la transferencia del dato desde el bus 


al circuito de desplazamiento (interno 
ala ALU) 


4 Aconlinuación del envío de una 
nueva señal por parte de la unidad de 
control, 2l contenido del circuito de 
desplazamiento se desplaza una 
posición a la izquierda; la última 
posición a la derecha (LSB, bit menos 
significativo) se iguala a cero 
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Ejecución de las instrucciones 


La fase de ejecución de las instrucciones es po- 
siblemente la que utiliza en mayor grado los re- 
sortes internos de un microprocesador, y tam- 
bién es la que más rehuye un tratamiento claro y 
orgánico. 

Por tanto, la lectura de los párrafos que siguen 
necesitará una atención particular: la compren- 
sión de los mecanismos internos de gestión de 
la CPU facilitará enormemente el estudio de las 
instrucciones del lenguaje Assembler, que es- 
tán estrechamente ligadas al funcionamiento 
paso por paso de la máquina. 
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5 Al final de la operación de 
desplazamiento, e contenido del 
desplazador se transfiere al bus de 
datos interno 


6 El dato se transfiere del bus al 
acumulador, donde sustituye el valor 
anterior (dato de partida). En el 
acumulador ahora hay el valor inicial 
(00000100) escalado en una posición 
hacia la izquierda (00001000) 


La temporización de las señales 


En el gráfico de la pág. 898 se muestran las lí- 
neas de conexión que gestiona la CPU, que 
son: 


m  laslíneas de dirección de 16 pistas. Cada bit 
viaja sobre una pista, y así pueden direccio- 
narse 65535 elementos de memoria 


"las líneas de datos, de 8 pistas. Es posible 
transferir al mismo tiempo un dato compues- 
to de 8 bits 


"las líneas de control: conjunto de pistas que 
habilitan de forma unívoca el tipo de opera- 


USO DE LOS CIRCUITOS TRES ESTADOS EN UN SISTEMA 
DE MICROPROCESADOR 


3US DE DI! 


ción a realizar. La disposición y el número de 
estas líneas dependen esencialmente del ti- 
po de microprocesador. 


Para que un sistema de microprocesador pue- 
da trabajar correctamente deben respetarse al- 
gunas reglas precisas de temporización de las 
señales intercambiadas entre los diversos dis- 
positivos. Por este motivo, la transferencia en el 
bus de direcciones, en el bus de datos y en el 
bus de controles está ligada a precisas relacio- 
nes temporales. En la pág. 898 se ha ilustrado 
un diagrama de secuencia de las señales nece- 
sarias para la realización de una operación de 
ou OS ¡paa lectura en memoria. 
UTa El proceso empieza con la transferencia del 
p k contenido del contador de programa al bus de 
O) direcciones, sincronizado con el reloj del siste- 
ma. Para que la memoria deje disponible en el 
bus de datos el valor pedido, es necesario que 
transcurra un cierto número de períodos de re- 
loj, o sea que se verifigue en la señal de reloj un 
cierto número de transiciones de 1 a 0; en este 
- caso, por razones de sencillez, se ha considera- 
Detalle de las pistas de una tarjeta. do suficiente un solo período. 
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PROCESO DE LAS SEÑALES QUE GENERAN UNA LECTURA EN MEMORIA 


mz Bus de controles 
ma Bus de datos de 8 bits 
==... Bus de direcciones de 16 bits 


El intervalo de tiempo correspondiente está defi- 
nido como tiempo de acceso, y representa el 
máximo retardo entre el momento en que se pi- 
de un dato y el momento en que este dato que- 
da disponible. Las señales presentes en las lí- 
neas de datos, correspondientes al valor a 
transferir, ceben ser estables durante un cierto 
intervalo de tiempo para que el microprocesa- 
dor pueda transferirlas a sus registros. 

El tipo de operación necesario (en el ejemplo, 
una lectura) está especificado por las señales 
presentes en las líneas de control, que habilitan 


898 


Nivel 1 _Reloj 


Nivel O 
Nivel 1 


Nivel O 
Dirección 


válida 


Nivel 1 Dato válido 


Nivel O 


Normalmente, la lectura de 
un dato se produce cuando 
una línea particular del bus 
de controles (llamada READ) 
pasa al nivel O 


Lectura (READ) 
Nivel 1 


Nivel O 


> 
Tiempo de acceso 


el dispositivo que recibe o transmite el dato. 
La temporización de las señales es uno de los 
parámetros más críticos del proyecto de un sis- 
tema de microprocesador. Los tiempos de ac- 
ceso (ver gráfico de la derecha) pueden variar, 
por ejemplo, en función de la temperatura. Las 
informaciones presentes en las puertas del mi- 
croprocesador nunca están perfectamente sin- 
cronizadas con el reloj, y la falta de sincronismo 
produce tiempos de retardo no despreciables. 
Para tener en cuenta estos retardos, el sistema 
debe evaluar convenientemente el retardo que 


transcurre entre el impulso de reloj y la aparición 
de las direcciones en el bus (Tda), el tiempo ne- 
cesario a la memoria para responder y el retar- 
do necesario hasta que el dato se ha estableci- 
do en las líneas; las temporizaciones dependen 
del tipo de operación en curso. 

La operación de lectura que debe considerarse 
es menos compleja que una operación de escri- 
tura. Efectivamente, en esta última deben consi- 
derarse los siguientes factores (ver gráfico de la 
pág. 900, arriba): 


1 / la longitud del impulso de escritura (Tw, write 
pulse) 

2 / el mínimo intervalo de tiempo que debe es- 
perar antes de enviar el impulso de escritura 


para que la dirección sea considerada válida 
(Tas, address setup time) 

3 / el mínimo intervalo de tiempo durante el cual 
el dato es válido antes de que el impulso de 
escritura termine (Tds, data setup time) 

4 / el mínimo intervalo de tiempo durante el cual 
el dato permanece disponible en las líneas 
de datos (Tdh, data hold time). 


El orden de sucesión de las señales sobre las 
diversas líneas es crítico, puesto que la CPU in- 
troduce, además del retardo en las líneas de di- 
rección (Tda, address delay time), también un 
retardo en las líneas de datos (Tdd, data delay 
time) y uno sobre el impulso de escritura (Tdw, 
write pulse delay time, ver pág. 900, abajo). 


RETARDOS EN LAS SEÑALES QUE ACTIVAN UNA OPERACION DE LECTURA 


B Dirección válida 


Bus de 
direcciones 


Bus de 
controles 


Línea READ 


Tiempo de acceso 


La CPU, sincronizada con el 
punto A del reloj, pone una 
dirección en el bus. Respec- 
to al instante A, la configura- 
ción de las señales se com- 
pleta con un cierto retardo 
(da, punto B). Desde este 
momento, la dirección es vá- 
Dato Válido WA. 

La memoria direccionada 
así pone su contenido en el 
bus de datos. También esta 
operación necesita un cierto 
tizmpo (Tacc) y, por tanto, el 
dato es válido con retardo 
respecto a la aparición de la 
dirección 


La línea que activa la lectura 
se indica normalmente con 
el símbolo de negación 
(READ negado, o sea, READ) 
puesto que es activa si está 
al nivel O, 


La línea READ a nivel 1 indica que el dato no está preparado. 


Transcurrido un cierto tiempo desde la aparición de la 


dirección (punto B) la línea READ se poneal nivel O y habilita la 


operación de lectura 


Tda = Address delay time = Tiempo de retardo en las líneas de direcciones 

Tacc = Memory access time = Tiempo de acceso a la memoria 

Tds = Data setup time = Tiempo necesario para obtener un dato válido 

Tad = Data access time = Retardo entre el comando de lectura y la aparición del dato 
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SEÑALES Y TIEMPOS DE RETARDO EN UNA OPERACION 
DE ESCRITURA EN MEMORIA 


Reloj 


Bus de 
direcciones 


Bus de 
datos 


Bus de 
controles 


si le, me 
K 
EPIA MEET 


Tda = Address delay time = Retardo necesario para la aparición de la dirección 

Tds = Data setup time = Tiempo durante el cual el dato puede escribirse 

Tas = Address setup time = Tiempo durante el cual puede utilizarse la dirección 

Tw = Write pulse = Duración de la señal WRITE 

Tdh = Data hold time = Tiempo durante el cual hay el dato después del impulso WRITE 

A El reloj activa la operación de escritura 

B Las señales en el bus de direcciones son válidas sólo después de un cierto retardo (Tda) 

C El dato aescribir aparece con retardo después de la dirección. En este momento, la configuración de las 
señales está completa, pero el dato todavía no se ha escrito. 

D Por último aparece el impulso de escritura (WATTE) y la memoria direccionada al punto B adquiere el dato. 
Al final dal WRITE, el dato permanece durante al tiempo Tdh, después de que el ciclo ha terminado 


RETARDO EN LA TRANSMISION DE UN DATO 


Reloj 


Bus de datos 


0 Tdd — Data delay time 


Tiempo de retardo entre el reloj y la aparición del dato. La aparición de la señal de reloj (la 
línea pasa dal nivel 0 al nivel 1) activa la función a realizar, pero a causa de los 
fenómenos fisicos presentes, las correspondientes señales eléctricas aparecen sólo 
después de cierto tiempo. Por tanto se tiene un retardo entre el comando (salida del 
reloj y la ejecución (aparición de la señal correspondiente al dato) 


RETARDO EN LAS SEÑALES DE CONTROL 


Reloj 


Bus de controles 
señal WRITE 


Tdw = Write pulse delay time 
Análogamente a la lectura, también la operación de escritura se 
activa poniendo a cero el nivel de una particular línea llamada WRITE. 
El tiempo de retardo de este impulso respecto al de reloj se indica con la sigla Tdw. 


900 


Todas estas señales de temporización están 
sincronizadas con el reloj del sistema. 

En algunos microprocesadores, el reloj (repre- 
sentado por el símbolo D) está generado por un 
circuito exterior. Este dispositivo, generalmente 
constituido por un chip dedicado, contiene un 
oscilador cuya frecuencia está controlada por 
un estabilizador de cristal de cuarzo. El primer 
gráfico de esta página muestra el esquema de 
una CPU que utiliza un generador de reloj exter- 
no. El mismo circuito proporciona la señal de 


temporización (Po,:) para los dispositivos exter- 
nos que deben estar sincronizados con la CPU, 
En otros microprocesacores, los circuitos de ge- 
neración de la señal de reloj están integrados en 
la CPU. En este caso (segundo gráfico), el cris- 
tal de cuarzo está conectado directamente a la 
CPU y la señal de sincronismo (P.,.:) está dispo- 
nible en una patilla del microprocesador. La se- 
ñal de reloj la utiliza la unidad de control para 
sincronizar todas las operaciones internas de 
microprocesador. Durante un ciclo de instruc- 


ESQUEMAS DE REALIZACION DE LA SEÑAL DE RELOJ 


p la h Cristal de cuarzo 


Señal de reloj 
para la CPU 


Íin 


Al bus de 
direccicnes 


o 


Señal de reloj para los dispositivos 
externos a la CPU 


PouT 


CPU con oscilador externo. La señal de reloj se genera con un componente externo especializado 


Cristal 


E 
de 
cuarzo =>) cPu 
POuT 


ESAS 


Oscilador de reloj integrado en la CPU. En este caso no hay la conexión DIN, 
puesto que la señal correspondiente es interna a la CPU. Además, acompa- 
ñan a las dos conexiones X1 y X2 para el estab lizador de cristal de cuarzo 


Al bus de 
direcciones 


DO 


> Al bus de datos 


D7 


Hacia dispositivos externos 
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ción, los ciclos máquina que lo componen son 
múltiplos del período de reloj, que también se 
llama estado (ver gráfico de abajo). 

Durante estos intervalos, la unidad de control 
envía las señales necesarias para habilitar los 
diversos dispositivos externos que deben reali- 
zar la operación pedida. 

Por ejemplo, como ya se ha hecho referencia, 
una de estas señales es la activación de la línea 
READ, que se actualiza cuando es necesario 
leer en la memoria un código de instrucción o 
bien un dato. 

Análogamente, en el caso de escritura en me- 
moría, para habilitar la operación se envía la se- 
ñal WRITE. 

El conjunto de las señales de control que la CPU 
envía o recibe del exterior puede dividirse, se- 
gún sus funciones, en los siguientes grupos (ver 
gráfico de la página siguiente): 


señales para la transferencia de datos 
señales para el control del bus 
señales de sistema 

señales de sincronismo 

señales de interrupción. 


Al primer grupo pertenecen las señales que es- 
pecifican si la operación de lectura (READ) o de 


escritura (WRITE) debe efectuarse hacia la me- 
moria (MEMRQ) o hacia un dispositivo general 
de Entrada/Salida (IORQ). Las señales para el 
control del bus se utilizan cuando un dispositivo 
externo pide una transferencia de datos de o 
hacia la memoria, sin la intervención del micro- 
procesador (operaciones de DMA, Direct Me- 
mory Access). 

Generalmente, el intercambio en DMA se pro- 
duce en tres fases. En primer lugar, el dispositi- 
vo envía una petición (señal BUSRQ, bus re- 
quest) para tener asignado el bus (direcciones, 
datos y controles). 

El microprocesador responde con la señal BUS 
AK (bus acknowledge, petición atendida) y 
suelta el control de los bus poniéndose en un 
estado de espera. Así, el dispositivo que ha pe- 
dido el DMA puede controlar el sistema sin inte- 
resar la CPU. 

Durante el DMA, los dispositivos externos al mi- 
croprocesador son informados del estado de 
inactividad de la CPU por la señal de HOLD, 
que junto con el RESET pertenece al grupo de 
las señales ce sistema. La activación de la señal 
de RESET interrumpe cualquier actividad reali- 
zada por la CPU y coloca el sistema en las mis- 
mas condiciones anteriores al instante de la 
puesta en marcha. 


DISTRIBUCION DE LOS CICLOS EN LA SEÑAL DE RELOJ 


Reloj 


Fase de búsqueda 


Ciclo máquina 1 


Ciclo máquina 2 


Fase de ejecución 


Ciclo máquina 3 


Ciclo de instrucción compuesto por ejemplo por tres ciclos máquina 


La fase de ejecución de una instrucción se divide necesariamente en dos 
partes principales: la fase de búsqueda y la fase de ejecución. Durante la 
búsqueda (un ciclo máquina) se toma el código de la instrucción, y durante la 
ejecución (que ocupa el número de ciclos máquina dependiente del tipo de 
instrucción) se activan todas las señales necesarias (bus de datos, 
direcciones, controles) para la ejecución efectiva de la instrucción 
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DESCRIPCION DE LAS LINEAS DE CONTROL DE UN MICROPROCESADOR 


RELOJ Lin 


Señales 
de interrupción 


Señales de 
sincronismo 


Algunos dispositivos conectados a la CPU ne- 
cesitan, para su funcionamiento, recibir la señal 
de reloj del microprocesador, que pertenece al 
grupo de las señales de sincronismo. Esta señal 
(Pou, clock out) no es suficiente para sincroni- 
zar el dispositivo externo con la CPU, y son ne- 
cesarias otras dos señales: la línea VPA (Valid 
Peripheral Address), que avisa al mieroprocesa- 
dor cuando el dispositivo está preparado para 
iniciar la transferencia (lectura o escritura según 
las otras líneas de control) y la señal SYNC, que 
habilita o deshabilita la transferencia. El último 
grupo de las señales de control son las interrup- 
ciones, de las que hablaremos en breve, Por 
ahora diremos que las señales de interrupción 
previstas en los microprocesadores utilizados 
en los ordenadores personales necesitan líneas 
de control que, adecuadamente comandadas, 
activan las funciones de interrupción. 
Finalmente, es necesario suministrar al micro- 
procesador una alimentación, generalmente +5 
voltios (VCC), y una masa (GROUND), y esto 
completa el examen de las líneas que van a pa- 
rar a las patillas de un microprocesador. 


Bus de las direcciones 
de 16 bits 


Bus de los datos 
de 8 bits 


Señales para la 
transferencia 
de datos 


aa BUSRO 
SA 


Señales para el 
control del bus 


Eat ' 


Señales del 
sistema 


La gestión de interrupción (interrupt) 

La función de interrupción consiste en la sus- 
pensión provisional de: programa en ejecución 
en la CPU para dar la oportunidad a la propia 
CPU a responder a una petición procedente de 
un dispositivo externo, como puede ser, por 
ejemplo, una impresora o una unidad de disco. 
Una vez satisfecha la petición (mediante un sal- 
to o un subprograma de gestión del dispositivo 
externo), la CPU vuelve a la ejecución del pro- 
grama interrumpido anteriormente. 

La función de interrupción ya se describió en las 
págs. 132 y 133 del primer volumen. En este 
punto utilizaremos un ejemplo para ilustrar su 
funcionamiento práctico, es decir, el que se pro- 
duce a nivel de la CPU cada vez que son activa- 
das las líneas de control de la interrupción. 
Supongamos que se desea utilizar un ordena- 
dor personal para controlar y regular la tempera- 
tura de un local o de Ln apartamento. Tendre- 
mos necesidad de un termómetro que mida la 
temperatura del ambiente y de un dispositivo 
que transforme el valor de la medición de tem- 
peratura en un número binario comprensible pa- 
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ra el ordenador. Después, el ordenador compa- 
rará este valor proporcional a la temperatura 
real, con la temperatura a la que queremos 
mantener el ambiente; en base al resultado de 
la comparación enviará los necesarios datos a 
un dispositivo de control, por ejemplo a la válvu- 
la de admisión de combustible en la caldera. 
Abajo se muestra el esquema de realización de 
un control de este tipo. Para el funcionamiento 
del sistema puede pensarse que el ordenador 
comprueba de forma fija la temperatura presen- 
te en la puerta de entrada, la compara con el 
valor prefijado y envía continuamente las seña- 
les de regulación a la válvula de la caldera. 
Este modo de funcionamiento no resulta el más 
adecuado, puesto que se basa en el aprove- 
chamiento de la potencia del ordenador. Efecti- 
vamente, este último estaría empleado durante 
todo el tiempo en realizar operaciones banales, 
como la lectura de un dato de la puerta de en- 
trada, la comparación de los números y la eje- 
cución de un sencillo programa que transforma 


la diferencia entre dos números (el valor desea- 
do y el valor real de la temperatura) en un dato a 
envíar a la puerta de salida. Por otra parte, los 
tiempos de reacción de los dispositivos térmi- 
cos son muy largos, es decir, que harían super- 
fluo el control continuo. Es suficiente con medir 
la temperatura y hacer seguir la rutina de control 
al ordenador sólo a intervalos de tiempo preci- 
sados, por ejemplo cada minuto. En la parte res- 
tante del tiempo, el ordenador podría aprove- 
charse mejor para utilizarlo en otras tareas. 

Con la interrupción es extremadamente fácil 
realizar un sistema de control que funcione se- 
gún esta modalidad (ver gráfico de la derecha). 
Un temporizador conectado al convertidor ana- 
lógico/digital genera, a intervalos prefijados de 
tiempo, una petición de interrupción poniendo el 
valor lógico 1 a la línea de control llamada IRQ 
(ver también el gráfico de la pág. 903). La CPU 
reconoce la petición de interrupción, interrumpe 
el programa que estaba realizando y queda dis- 
ponible para responder a la petición poniendo 


REGULACION DE TEMPERATURA REALIZADA POR MEDIO 
DE UN ORDENADOR 


Circuito del agua caliente 


Estancia 


| 


Termómetro | 


Señal de 
control 


Combustible 


Quemador 


Señal de 
regulación 


) Ordenador 
personal 


El converticor analógico/digital transforma la medida de temperatura en un 
número binario, que envía a la puerta de entrada del ordenador 
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FUNCIONAMIENTO CON INTERRUPCIONES DEL SISTEMA DE CONTROL 
DE TEMPERATURA 


Termómetro 


Esquema del circuito 


Líneas de control de la interrupción 


Petición 


Proceso temporal de las señales 


al valor lógico 1 la línea lAK. A la recepción de la 
señal lAK, el dispositivo externo envía a los dis- 
positivos de entrada el dato que representa la 
medición de temperatura y anula la petición de 
interrupción poniendo a O la línea IRQ. 

El ordenador envía entonces a ejecución el pro- 
grama que se ocupa de leer el mensaje en la 
puerta de entrada, de comparar el valor de tem- 
peratura medido con el prefijado y de enviar la 
señal de control a la puerta de salida. 
Después de haber completado la ejecución del 
programa de gestión de la interrupción, la CPU 
vuelve a realizar el programa que estaba en cur- 
so de desarrollo antes de la introducción. 
Analizaremos ahora el modo en que la CPU em- 
pieza a ejecutar la rutina de control de la tempe- 


Envío de datos 


ratura y cómo hace después para reemprender 
la ejecución del programa interrumpido, 


La pila (stack). Cuando la petición de interrup- 
ción se acepta, el dispositivo externo pone en el 
contador de programa la dirección inicial de la 
rutina de control; así, en el siguiente ciclo de 
fetch (instrucción de búsqueda) la CPU toma la 
primera instrucción de esta rutina, y no la previs- 
ta por el programa que estaba en ejecución. Sin 
embargo, la CPU, antes de aceptar la petición 
de interrupción, realiza una serie de operacio- 
nes necesarias para poder reemprender el pro- 
grama que estaba realizando. 

Efectivamente, el programa podría haber pro- 
ducido la memorización de informaciones im- 
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Coleman/Marka 


portantes en el registro de estado, en el conta- 
dor de programa y en el acumulador, estas in- 
formaciones seguramente se perderían en el 
momento de realizar la rutina de control de la 
temperatura s no se procediese a salvarlas. Por 
tanto, antes de aceptar la interrupción, la CPU 
salva en un área de memoria el contenido de 
todos los registros. Es como s: se memorizara 
una «fotografía» de la situación que precede a 
la aceptación de la interrupción. Terminada la 
ejecución del programa de gestión de la inte- 
rrupción, en los registros de la CPU se recupe- 
ran los valores salvados anteriormente, y en el 
contador de programa se carga la dirección de 
la instrucción que debía realizarse en el mo- 
mento de la interrupción. Por tanto, el programa 
inicialmente en ejecución puede reemprender 
su funcionamiento como si no se hubiese inte- 
rrumpido. El contenido del registro de instruc- 
ciones no se salva, puesto que normalmente la 
CPU termina la ejecución de la instrucción en 
curso antes de aceptar la petición de interrup- 
ción. En consecuencia, el código contenido en 
el IR corresponde a una instrucción ya realizada 
y, por tanto, no es necesario salvarlo. 

El contenido de los registros se salva en un área 


de memoria RAM constituida por varias células 
consecutivas denominada pila (stack) y que se 
utiliza también para salvar las direcciones de re- 
torno de las subrutinas. Para gestionar la pila se 
usa un registro particular, el puntero de pila 
(stack pointer), en el cual se memoriza la situa- 
ción «de carga» de la pila. 

La CPU ve esta particular zona de memoria co- 
mo una estructura de tipo Last-In First-Out (Ll- 
FO), o sea, como una pila de elementos en el 
que el último en llegar se entrega primero. 

El funcionamiento de una pila del tipo LIFO se 
muestra en la página siguiente, arriba. El valor 
33 se ha insertado en la pila el último y es el 
primer dato que puede leerse; el valor 14 podrá 
leerse sólo después del número 33. La pila fun- 
ciona en la práctica como una serie de platos 
apilados uno encima de otro. Los platos podrán 
tomarse de la pila sólo en orden inverso a aquel 
en el que se han apilado. 

En la página siguiente, en el centro, se muestra 
el esquema de la CPU a la llegada de una peti- 
ción de interrupción. En el puntero de pila hay la 
dirección hexadecimal 0100, que apunta al prin- 
cipio del área de pila. La CPU salva el contenido 
de los registros a partir de esta dirección y, por 


Una memoria de burbujas magnéticas de la firma Intel. 
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ESTRUCTURA DE TIPO LIFO 


Area de pila 


Primer dato que 
podrá leerse 
en la pila 


Contador 
programa 


lo tanto, pone a 1 la línea lAK y acepta la inte- 
rrupción solicitada. 

La operación de salvamento se muesira detalla- 
damente en la pág. 908. La CPU salva el conte- 
nido del primer registro en la pila escribiendo el 
dato en la celda de memoria direccionada por 
el puntero de pila, e incrementa después en 1 el 
valor de dicho puntero de pila. Los registros de 
dos bytes (PC y DC) están salvados, un byle en 
cada ocasión, en dos celdas de memoria conti- 
guas. Para reactivar el programa suspendido se 
sigue la lógica inversa (ver pág. 909). 


Ultimo dato insertado 
en la pila 


Primer dato insertado en la pila 


Acumulador 


Contador 
datos 


Registro de instrucciones 


IRQ=1 l¡AK=0 


La operación de escritura en el área de pila pue- 
de continuar hasta el llenado total de dicha área, 
que en algunos sistemas tiene dimensiones 
fijas, mientras que en otros sistemas tiene una 
extensión que puede variar según las exigen- 
cias del programador. 

En el lenguaje Assembler, las operaciones de 
escritura y lectura en el área de pila pueden rea- 
lizarse fácilmente, puesto que existen instruccio- 
nes que actúan sobre el acceso del área incre- 
mentendo o decremertando automáticamente 
el puntero de pila. 


907 


SALVAMENTO DEL CONTENIDO DE LOS REGISTROS EN EL AREA 
DE PILA A CONTINUACION DE LA INTERRUPCION 


Memoria Registros 
Direcciones 


Fondo de la 
pila 


102 
100 
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RECUPERACION DE LOS REGISTROS AL FINAL DE LA INTERRUPCION 
Y ANTES DE REACTIVAR EL PROGRAMA SUSPENDIDO 
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Estructura de las instrucciones 
Assembler 


La CPU de un sistema de microprocesador tie- 
ne acceso a una memoria en la que hay regis- 
trados los códigos hexadecimales de las ins- 
trucciones de gestión de los registros, necesa- 
rios para la realización de las funciones previs- 
tas. A cada código-instrucción corresponde una 
secuencia de operaciones elementales (ciclos 
de máquina) que la CPU debe activar a la llega- 
da de aquel código. 

Normalmente, las instrucciones que componen 
el programa no se introducen en el microproce- 
sador utilizando los códigos hexadecimales, 
Cuando se desea utilizar una simbología que 
sea lo más cercana posible al lenguaje máquina 
se emplea casi siempre el lenguaje Assembler, 
Este lenguaje permite proporcionar las instruc- 
ciones utilizando un juego de códigos mnemóni- 
cos (no números hexadecimales) más fáciles de 
tratar, cada uno de los cuales encuentra corres- 
pondencia en un preciso código-instrucción he- 
xadecimal. Sin embargo, se dice que el len- 
guaje Assembler y el lenguaje máquina se 
corresponden uno a uno. 

La traducción de los códigos mnemónicos en 
los correspondientes códigos hexadecimales, 
directamente comprensibles por la CPU, se rea- 
liza por un programa de sistema llamado En- 
samblador. El Ensamblador traduce una cade- 
na de caracteres ASCII (código mnemónico, sin 
significado para la máquina) en un conjunto de 
bits que tienen un significado preciso para el mi- 
croprocesador, En el interior de un ciclo de ins- 
trucción, en el primer ciclo máquina (ciclo de 
búsqueda) este conjunto de bits se carga en el 
registro de instrucción y es descodificado por la 
unidad de control; en base a las señales de 
control generadas, se toman de la memoria y se 
procesan los demás bits de la instrucción. 

En los primeros calculadores sólo había la posi- 
bilidad de cargar los programas directamente 
en lenguaje máquina a través de un teclado he- 
xadecimal o binario. 

Los registros (como por ejemplo el contador de 
programa) se cargaban bit por bit, y la memoria 
se llenaba byte por byte. 

Este sistema comportaba notables problemas 
de documentación y de corrección de los erro- 
res, además de la imposibiidad de releer con 
una cierta facilidad el programa escrito. 
Precisamente para obviar estos inconvenientes 
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se introdujeron los Ensambladores, que permi- 
tían utilizar los códigos mmnemónicos, consti- 
tuyendo el arquetipo de los lenguajes simbóli- 
cos de alto nivel más orientados al usuario, 
Escribir una instrucción en forma mnemónica es 
más fácil que escribirla en forma de secuencia 
binaria, en la que un error banal, como por 
ejemplo el desplazamiento de un bit, compro- 
mete todo el código. 

Por ejemplo, suponiendo que la instrucción 
«Carga el acumulador con el valor 10» en As- 
sembler tenga la torma LDA ++ 10", el código 
binario correspondiente podrá ser del tipo 0 0 1 
1101000001010 y resulta tener una forma 
poco clara y fácilmente desfigurable. 

Cada instrucción Assembler ocupa una línea 
del programa fuente y se traduce en una ins- 
trucción única en código binario, llamada ins- 
trucción máquina. 

Cada línea de programa y, por tanto cada ins- 
trucción, puede considerarse dividida en cuatro 
partes o campos, cada uno de los cuales tiene 
su significado preciso ligado a su posición. Los 
campos que componen una instrucción Assem- 
bler son: la etiqueta (label), el código mnemó- 
nico de la instrucción, los operandos y el co- 
mentario. 

El campo etiqueta es un indicador de línea, ne- 
cesario si en el interior del programa debe sal 
tarse a aquella instrucción. El código mnemóni- 
co de la instrucción representa la parte que se 
descodificará en la unidad de control, 

En cambio, el campo operando puede indicar la 
dirección de memoria en que se encuentra el 
operando o directamente el valor de dicho ope- 
rando. 

El campo comentario se utiliza sólo a fines de 
documentación. En la página siguiente se ilustra 
un segmento de programa en Assembler que 
ilustra la sintaxis descrita. 

La primera instrucción del programa Assembler 
carga (mnemónico LD; en inglés, load significa 
carga) el valor 10 en el acumulador. La segunda 
instrucción decrementa (mnemónico DEC) en 1 
el contenido del acumulador, mientras que la 
tercera efectúa un salto a la etiqueta LOOP si el 
contenido de A no es O (mnemónico BNZ, 
Branch Not Zero). Cuando A resulte igual a O se 
realizará la siguiente instrucción. 

Es importante observar el método que se adop- 
ta para direccionar una cierta instrucción. Si el 


* El significado del símbolo + se explica más adelante. 


EJEMPLO DE INSTRUCCIONES ASSEMBLER 


Código 
mnemónico 


LDA 


Etiqueta 


DEC 


BNZ 


programa tuviera que escribirse en Basic, una 
posible forma podría ser la siguiente: 


100A= 10 
110A=A-1 
120 IFA <> 0 GOTO 110 


La línea 120 direcciona (bajo condición) a la lí- 
nea 110, y es el equivalente de la BNZ A, LOOP, 
con la diferencia de que el equivalente Assern- 
bler de la línea 110 tiene el nombre LOOP. En 
otros términos, si el intérprete Basic pudiese re- 
conocer las líneas indicadas con un nombre 
simbólico, el programa Basic tendría la forma: 


A=10 
LOOP A=A-=1 
IFA <> 0 GOTO LOOP 


identificando la instrucción A = A— 1 con la eti- 
queta (label) LOOP y no con el número de línea. 
El paralelo descrito sólo es cualitativo, puesto 
que entre los dos programas existe una diferen- 
cia sustancial. En la versión Assembler, el sím- 


Operando 


Comentario 
; Carga en el acumulado: 
el valor 10 


¡; Decrementa en 1 el 
contenido del acumulador 


; Salta a "LOOP" sí A es 
dilerente de O 


(LDA 310) 


bolo A no es una memoria cualquiera como en 
el Basic, sino un registro preciso del micropro- 
cesador (el acumulador). 

Por tanto, en realidad, los dos programas reali- 
zan funciones completamente diferentes, El pro- 
grama Basic efectúa e cálculo y el test de con- 
dición sobre una memoria general, que por ca- 
sualidad se llama A; el programa Assembler no 
involucra ninguna memoria, y realiza los cálcu- 
los y el test sobre el acumulador. 


Métodos de direccionamiento 

Antes de proceder al análisis de las instruccio- 
nes Assembler debe describirse la forma en 
que este lenguaje puede acceder a los datos 
residentes en memoria 

A cada memoria utilizada en un programa Basic 
hay asociado un nombre simbólico, y es con es- 
te nombre que puede reclamarse su contenido. 
En Assembler, las cosas son más complejas. 
Para utilizar una memoria debe direccionarse, 
es decir, se debe proporcionar al programa su 
dirección real y no un nombre simbólico. Los 
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métodos de direccionamiento usados más co- 
rrientemente en los microprocesadores, y por 
tanto en los correspondientes lenguajes Assem- 
bler, son los siguientes: 


1 / Direccionamiento inmediato 

2 / Direccionamiento absoluto o directo 
3 / Direccionamiento indirecto 

4 / Direccionamiento indexado 

5 / Direccionamiento relativo 

6 / Direccionamiento de registro 

7 / Direccionamiento de pila 


En algunos microprocesadores, estos modos 
de direccionamiento pueden combinarse entre 
sí para aumentar posteriormente la potenciali- 
dad de las instrucciones. 

Examinemos ahora cada uno de los diversos 
modos de direccionamiento, introduciendo en 
los ejemplos algunas instrucciones Assembler 
que después se explicarán con más detalle, y 
que se referirán a un microprocesador de 8 bits. 


Direccionamiento inmediato. El direcciona- 
miento inmediato se tiene cuando el operando 
está contenido en la misma instrucción Por 
ejemplo, la instrucción* 


ADD A, ++ 100 


* Los códigos mnemónicos de los ejemplos tienen carácter 
indicativo. Para emplearlos realmente deben reescribirse en 
la forma prevista para el tipo de microprocesador particular, 


suma el valor 100 al contenido del acumulador, 
indicado con el código A. El símbolo + se ha 
adoptado para indicar que el número 100 es di- 
rectamente el operando, y no su dirección. 
Abajo se muestra el formato típico de una ins- 
trucción de direccionamiento inmediato, es de- 
cir, que utiliza directamente como operando un 
valor indicado explícitamente (que es 100), 

La ejecución de una instrucción de este tipo es 
muy rápida, puesto que la CPU, una vez carga- 
da la instrucción, no debe realizar accesos pos- 
teriores de memoria para tomar el operando. 


Direccionamiento absoluto o directo. Con es- 
te tipo de direccionamiento, la instrucción con- 
tiene la dirección de memoria del operando. Así 


ADD A,/100 


suma al acumulador el dato contenido en la di- 
rección de memoria 100, depositando el resulta- 
do en el propio acumulador, como muestra el 
gráfico de arriba de la página siguiente. 

El símbolo / se usa para identificar el direcciona- 
miento directo. En el gráfico de arriba de la pág. 
913 se muestra el formato típico de las instruc- 
ciones que utilizan el direccionamiento directo. 
Normalmente, estas instrucciones necesitan 
tres bytes, puesto que, además del código ope- 
rativo (8 bits = 1 byte), son necesarios 16 bits 
para especificar una dirección entre las 64 k dis- 
ponibles en memoria. Antes de tomar de la me- 
moria el dato, la CPU debe efectuar otras dos 


INSTRUCCION CON DIRECCIONAMIENTO INMEDIATO 


912 


La instrucción está compuesta 
por dos bytes. En uno hay escrito 
el tipo de operación a realizar 
(código), en el otro el operando 


Al acumulador (A) se suma el 
valor 100; el resultado 
estáen A 


INSTRUCCION CON DIRECCIONAMIENTO DIRECTO 


Contenido del acumulador 
antes de la ejecución de 
la instrucción ADD A,/100 


La instrucción toma el contenido de la memoria 100 (/100) 
y lo suma al contenido del acumulador 


Acumulador después de la 
ejecución de la instrucción 


INSTRUCCION CON DIRECCIONAMIENTO ABSOLUTO 


Memoria 


Código 
instrucción 


Primera parte 
dirección 


Sagunda parte 
dirección 


Instrucción 


El primer byte de la instrucción contiene el código; 
los dos byles siguientes contienen la dirección 


O —— Valor = 73 
Al acumulador 


accesos para tomar los dos bytes de la direc- 
ción. Este tipo de direccionamiento puede ha- 
cerse más rápido subdividiendo la memoria en 
páginas de 256 bytes. 

La instrucción direcciona uno de los 256 bytes 
de una página, mientras que un registro llamado 
Page Register contiene la dirección de partida 
de la página, que sumada a la dirección especi 
ficada por la instrucción determina la efectiva 
del operando (pág. 914, arriba). En el ajemplo, 
la instrucción es de dos bytes. Evidentemente 
es necesario que una instrucción anterior car- 
gue el Page Register con el valor apropiado. Por 


tanto, este tipo de direccionamiento resulta con- 
veniente cuando es necesario acceder a diver- 
sos datos contenidos en la misma página de 
memoria y, en consecuencia, no debe modifi- 
carse el contenido del Page Register. 


Direccionamiento indirecto. En este direccio- 
namiento, la celda de memoria direccionada 
por la instrucción no contiene el operando, sino 
la dirección de una memoria que lo contiene. 
Considerando por ejemplo la instrucción 


LD A, (A 100 
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DIRECCIONAMIENTO ABSOLUTO POR PAGINAS 


El resultado 
(4150) es 


la dirección 
de memoria 


El dato se toma de la memoria 4150, es decir de la memoria 


Dirección 
Código relativa en 
instrucción | la página 


La dirección (4150) se 
obtiene sumando 50 al 
contenido del page-register 


Valor = 73 
Al acumulador 


número 50 de la página que empieza por 4100 


DIRECCIONAMIENTO INDIRECTO 


Memoria 


El contenido 
de la 
memoria 
100 es la 
nueva 
dirección 


y 


ésta cargará en el acumulador no el contenido 
de la memoria de dirección 100, sino el conteni- 
do de la celda de memoria cuya dirección está 
contenida en la celda 100, como se muestra 
arriba. La celda 100 contiene la dirección 150; el 
dato cargado en el acumulador será 31, o sea el 
contenido de la celda 150. En el ejemplo se ha 
adoptado el símbolo (W para especificar el mo- 
do de direccionamiento indirecto. 

El direccionamiento indirecto comporta un fun- 
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El valor 100 es la primera dirección 


Valor = 31 
Al acumulador 


cionamiento más lento que el directo, puesto 
que la CPU debe efectuar dos accesos a la me- 
moria antes de tomar el dato. Sin embargo, este 
tipo de direccionamiento resulta muy conve- 
niente cuando se escriben subprogramas que 
procesan datos contenidos en áreas de memo- 
rias diferentes. El formato típico de la instrucción 
con direccionamiento indirecto es el mismo que 
para el direccionamiento directo; la longitud de 
la instrucción siempre es de 3 bytes. 


Direccionamiento indexado. La CPU suma en 
este caso una dirección contenida en la instruc- 
ción con el contenido de un registro particular, 
llamado registro índice, para formar la direc- 
ción efectiva del operando. Indicando con X el 
contenido del registro índice, la instrucción 


LD A, 100(X) 


hace que la CPU cargue en el acumulador el 
dato contenido en la celda cuya dirección es 
100 + X (ver el gráfico de esta página). 

Los paréntesis indican el modo de direcciona- 
miento indexado. 

A diferencia del Page Register, el registro índice 
no debe contener necesariamente la dirección 
inicial de una página en memoria, sino una di- 
rección cualquiera. 

El direccionamiento indexado se muestra muy 
potente para la elaboración de datos organiza- 
dos en memoria en forma de vectores o matri- 
ces (array), y opera como se muestra en el gráfi- 
co de la pág. 916. Es más lento que el directo, 
porque la CPU debe sumar el contenido del re- 
gistro índice a la dirección especificada en la 
instrucción antes de acceder a la memoria para 
tomar el dato. No obstante esto, los programas 
que utilizan el direccionamiento indexado resul- 
tan más rápidos cuando debe accederse a da- 


tos memorizados en celdas de memoria que tie- 
nen direcciones consecutivas. 


Direccionamiento relativo. Con este método, 
el direccionamiento del operando se determina 
sumando a la dirección contenida en la instruc- 
ción el valor contenido en el Contador de Pro- 
grama. 

Indicando con el símbolo $ el direccionamiento 
relativo, y suponiendo que la instrucción en eje- 
cución esté memorizada en la dirección 50, es- 
cribir LD A,$100 equivale a escribir LD A,/150, 
como muestra el gráfico de la pág. 917. 

El direccionamiento relativo se utiliza cuando se 
crean programas reubicables, que pueden me- 
morizarse de vez en cuando en áreas de memo- 
rias diferentes. Especificando las direcciones* . 
de los operandos de modo relativo con respec 
to a la dirección de la instrucción que la utiliza, 
al variar esta última no deben modificarse las 
direcciones de los operandos, 

En otras palabras, el mecanismo consiste en di- 
reccionar una memoria identificándola con su 
posición relativa con respecto a una determina- 
da dirección. De esta manera, el programa pue- 
de cargarse en una zona cualquiera de la me- 
morja. Definiendo de vez en cuando el valor de 
la referencia (base de reubicación), todo que- 
da inalterado. 


DIRECCIONAMIENTO INDEXADO 


Memoria 


| La dirección se 
obtiene sumando 
100 al valor 
contenido en el 
registro índice 


Registro 
índice 


La dirección es 165 


Valor = 29. Al acumulador 
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DIRECCIONAMIENTO INDEXADO 


Registro índice 


Valor = 7. Se suma al contenido 
del acumulador inicialmente 


Inicialmente, el registro índice contiene 0, igual a O 


Se toma el valor contenido en la memoria 100 


Si se incrementa el contenido X del registro índice, 
la instrucción ADD A,100(X) 
equivale a la ADD A,/101 


Registro Índice 


La nueva dirección es 101 


Valor = 21. En el acumulador se ha 
realizado la suma 7 (valor anterior) 
+ 21 = 28, El nuevo contenido es 28 


Un sucesivo incremento de X direcciona a 
la memoria 102, cuyo contenido se suma 
nuevamente al contenido del acumulador 


Dirección = 102 EE] 


Valor = 65. El acumulador, al final de 
esta instrucción, contiene 28+65 = 93 


DIRECCIONAMIENTO RELATIVO 


Area de 
programa 


El Contador de Programa direcciona la 
memoria 50, que contiene la siguiente 
instrucción a realizar 


La instrucción utiliza el contenido de una memoria 


$0100 
50+ 100 = 150 


posicionada a + 180 con respecto a la que contiene 
la propia instrucción. En este caso, la instrucción 


se encuentra en 50, por tanto, la memoria 
direccionada es 50 + 100 = 150 


Area 
de datos 


<A, Valor = 18 


Al acumulador 


Direccionamiento de registro. Se tiene cuando 
en la instrucción se especifica la dirección de un 
registro en lugar de una dirección de memoria. 
Los registros están contenidos en la CPU y lie- 
nen un número limitado. Este método de direc- 
cionamiento permite hacer mucho más rápida la 
ejecución de las instrucciones y reducir la longi- 
tud del código. Por ejemplo, la instrucción 


ADD A,.B 


suma al contenido del acumulador el contenido 
del registro B. El símoolo utilizado para distin- 
guir este tipo de direccionamiento es el punto. 
La ejecución de una instrucción de este tipo es 
muy rápida, puesto que no son necesarios ac- 
cesos a la memoria. 

Evidentemente es necesaria una instrucción an- 
terior que cargue en el registro B el valor que se 
sumará después en A. 

El direccionamiento de registro resulta muy útil 
cuando debe utilizarse muchas veces un valor 
constante en un proceso. Puede ulilizarse larm- 
bién de forma indirecta, como se ve en la pág. 
918, utilizando el contenido del registro (B) co- 
mo dirección del valor a tomar, 


También en este caso, la ejecución de la ins- 
trucción resulta más rápida, puesto que se efec- 
túa un solo acceso a memoria. 


Direccionamiento de pila. Este tipo de direc- 
cionamiento prevé que los datos utilizados por 
una cierta instrucción se memoricen en la pila. 
El direccionamiento de pila tiene notables ven- 
tajas, puesto que las instrucciones son más cor- 
tas y, por tanto, tienen un tiempo de ejecución 
muy breve. Efectivamente, después de cada 
acceso a la pila, la CPU recalcula automática- 
mente la dirección de entrada en la pila, por lo 
que el programador no debe prever instruccio- 
nes para la actualización de las direcciones. El 
direccionamiento de pila también puede utilizar- 
se en modo directo e indirecto. 


Generalmente, no todos los métodos de direc- 
cionamiento pueden utilizarse con todos los ti- 
pos de instrucción. Sólo algunas formas particu- 
lares de código binario, llamadas códigos orto- 
gonales, prevén esta posibilidad. En la reali- 
dad, los códigos de este tipo se emplean rara- 
mente, puesto que los fabricantes prefieren es- 
pecializar las instrucciones. 
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DIRECCIONAMIENTO INDIRECTO A REGISTRO 


Las instrucciones Assembler 


Ya se ha dicho varias veces que las instruccio- 
nes Assembler permiten comunicar a la máqui- 
na comandos e instrucciones relacionados uno 
a uno con los códigos hexadecimales propios 
del lenguaje máquina, pero utilizando códigos 
mnemónicos alfabéticos y numéricos. 

Es muy importante comprender que el código 
binario de una determinada instrucción es único 
y, normalmente, ¡nalterable por parte del usua- 
rio, puesto que está escrito en el interior de la 
CPU por el fabricante, de manera indeleble e 
idéntica para todos los microprocesadores del 
mismo tipo. En cambio, la codificación mnemó- 
nica Assembler es modificable en cualquier mo- 
mento; basta con disponer de un Ensamblador 
diferente. Este último podrá aceptar un código 
mnemónico también completamente diferente al 
anterior, pero cada instrucción se traducirá 
siempre y únicamente a los códigos binarios 
previstos por aquel microprocesador. 

Técnicamente no existe ninguna razón por la 
que cada tipo de microprocesador utilice 
conjuntos de códigos mnemónicos diferentes 
entre sí, pero actualmente cada fabricante usa 
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La instrucción utiliza 
el contenido de B 
como dirección de 
memoria 


Registro B 


Valor = 49 Al acumulador 


simbologías propias, particulares de cada mi- 
croprocesadcr. La ausencia de una norma entre 
los diversos Assembler disponibles conlleva no- 
tables problemas en la fase de escritura de los 
programas; a menudo es necesario reescribir 
completamente rutinas ya desarrolladas sólo 
porque cambia el microprocesador utilizado. 
Motivado por esta dificultad, el Instituto de Inge- 
niería Eléctrica y Electrónica (IEEE, Institute of 
Electrical and Flectronics Engineering, Task T 
694/D) ha propuesto una norma a utilizar en la 
definición de las instrucciones. 

El lenguaje Assembler propuesto por el IEEE, al 
cual nos referiremos después, quizá puede pa- 
recer más complejo de lo necesario, puesto que 
define reglas precisas a respetar, y en algunos 
casos es además redundante. Sin embargo, de- 
be tenerse en cuenta que a este nivel, la excesi- 
va compactación de un lenguaje puede hacerlo 
ilegible, mientras que si se fijan algunas reglas 
fundamentales para todas las instrucciones, lo 
que parecen complicaciones llevan en realidad 
a una mayor legibilidad del programa. 

Por tanto, el programador debe conocer a fondo 
el microprocesador que está utilizando, porque 
no todas las instrucciones existentes están dis- 


ponibles en una determinada CPU. En general, 
en un lenguaje Assembler están presentes los 
siguientes tipos de instrucciones: 


1 / Instrucciones condicionales 

2 / Instrucciones aritméticas 

3 / Instrucciones lógicas 

4 / Instrucciones de transferencia de datos 

5 / Instrucciones de bifurcación (Branch) 

6 / Instrucciones de salto de una instrucción 
(Skip) 

7 / Instrucciones de llamadas a subrutinas 

8 / Instrucciones de retorno a subrutinas 

9 / Instrucciones varias 


Todos los códigos mnemónicos están formula- 
dos respetando la regla fundamental que prevé 
la formación de cada palabra-instrucción con 
las iniciales de la palabra que compone la des- 
cripción de la acción activada. Por ejemplo, 


ADDC = ADD with Carry = Suma teniendo en 
cuenta los acarreos 

= Branch if Greater Than = Salta si el 
contenido del acumulador es mayor 
que... 


BGT 


Cuando es necesario, en el código mnemónico 
también hay especificado el tipo de operando al 
que se refiere la instrucción. 

El carácter de especificación es 


si el operando es un byte 

si el operando es una halfword (media pala- 
bra) 

si el operando es una longword o double- 
word (doble palabra) 

si el operando es un decimal 

si el operando es una coma flotante 

si el operando es un bit 

siel operando es un nibble (4 bits) o un dígito 


yes : Ml + [A RS «+, 


A falta de una declaración explícita, el operando 
se supondrá por omisión que es de tipo word (o 
sea una palabra, 16 bits), 


Instrucciones condicionales 


Son aquellas instrucciones que permiten condi- 
cionar la ejecución del programa al producirse o 
no un determinado suceso. 

Generalmente, la condición está definida por los 
bits del registro de estado. En otros términos, el 
suceso se ha representado con el valor verda- 


dero o falso (0 o 1) de uno de los bits cero (Z), 
acarreo (C), desbordamiento (O o V), signo (N), 
paridad (P) o de una combinación de ellos. 
Las instrucciones como las de salto (branch), 
de salto de una sola instrucción (skip) o de una 
llamada a un subprograma (call), pueden ser 
condicionadas, por ejemplo, con respecto a uno 
de los siguientes sucesos: 


Z Cero: la instrucción se realiza si el bit de ce- 
ro tiene un valor lógico 1 (condiciór verda- 
dera), o sea si el resultado de la última ope- 
ración realizada ha sido cero 

NZ No Cero: la instrucción sólo se realiza si el 
bit cero tiene un valor lógico 0, o sea si el 
resultado de la última operación realizada 
no es cero 


Hay otras instrucciones que pueden vincularse 
a operaciones relacionales de comparación. 
Este tipo de condicionamientos se impone siem- 
pre sobre la base de los valores de los bits del 
Registro de Estado a través de algunas opera- 
ciones lógicas. 


Empleo de un lenguaje simbólico orientado 
al problema de la gestión de 
tráfico ferroviario. 
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Reese/Marka 
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TESTS CONDICIONALES 


Condición 


Zero 
Not Zero 
Carry 
Not Carry 
Negative 
Positive 
Overflow 
Not Overflow 
Equal 
Not Equal 
Greater Than 
Less Than 
Greater or Equal 
Less or Equal 
Higher 
Lower 
Not Higher 
Not Lower 


Código mnemónico 


En la tabla de al lado se han indicado los 
códigos de algunos tests condicionales. Hay 
que recordar que las acciones dependen del 
microprocesador en uso, y sobre todo de la 
estructura del Registro de Estado. 

También es muy importante recordar que no 
siempre todos los bits del Registro de Estado 
son modificacos por una instrucción. En particu- 
lar, en las instrucciones de salto (branch o skip) 
es indispensable saber qué bits han variado 
con posterioridad a la ejecución de la instruc- 
ción anterior. 

Generalmente, en los manuales Assembler exis- 
ten tablas que, instrucción por instrucción, di- 
cen qué bits se modifican, cuáles permanecen 
inalterados y cuáles son indefinidos. 

En la tabla de abajo se ha representado un 
ejemplo. 


Instrucciones aritméticas 

En la tabla de la página siguiente se indican al- 
gunas instrucciones aritméticas que normal- 
mente están previstas por los Ensambladores. 


EXAMEN DE LOS CODIGOS DE CONDICION (Tabla teórica) 


Operación 


Registro de Estado 


Tipo de operación 


AND lógico 


O 


SA a la izquierda 


2 e 


* situado según el resultado de la operación 
- no modificado por la operación 

0 puesto a cero en cualquier caso 

U (undefined) indefinido después de la operación (es decir modificado, pero sin significado) 


Código 
mnemónico 


ALGUNAS INSTRUCCIONES ARITMETICAS 


Descripción 


Add ADD 
(suma) 

Add with carry ADDC 
(suma con acarreo) 


(resta) 
SUBC 


SUB 
INC 
EC 
UL 
DIV 
MP 
EG 


Subtract with carry 
(resta con acarreo) 


Increment 
(incremento) 
Decrement D 
(decremento) 
Multiply M 
(multiplicación) 
Divide 
(división) 
C 
ón) 


Compare 
(comparación 


Negate 
(negación) 


Estas instrucciones permiten realizar todas las 
operaciones de suma sin (ADD) y con acarreo 
(ADDC). 

Las operaciones con acarreo se utilizan, cuan- 
do es necesario tener una mayor precisión, para 
sumar números representados por más bytes. 
Las instrucciones de incremento o decremento 
suman o restan un 1 al operando especificado. 
Por ejemplo, la instrucción INC A incrementa en 
1 el contenido del acumulador. Estas instruccio- 
nes son muy útiles para la actualización rápida 
de los contadores. 

Las instrucciones de multiplicación (MUL) y de 
división (DIV) están presentes sólo en los micro- 
procesadores más sofisticados (generalmente 
los de 16 bits), puesto que las correspondientes 
Operaciones no se realizan a través de circuitos 
específicos, sino mediante oportunas señales 
de control enviadas por la Unidad de Control al 
sumador y al complementador. 

En la operación de comparación se realiza una 
comparación entre los dos operandos. General- 
mente, esta operación se realiza mediante una 


Realiza una suma 


Suma con acarreo de anteriores 
operaciones 


Resta con acarreo procedente de 
una operación anterior 


División 


Comparación entre dos operandos 
Realiza un complemento a 2 
del operando 


resta entre los dos operandos; en base al exa- 
men del bit de cero resultará la igualdad o la 
desigualdad de los dos operandos. 

La operación de comp emento a 2 se efectúa a 
través del circuito de complemento, y es posible 
activarla con la instrucción NEG. Por ejemplo, 
introduciendo NEG A, el contenido del acumula- 
dor se complementa a 2. 

Si el contenido del acumulador es (4);0 


MSB LSB 


O. 0. 00:00: 1 0.0 


ejecutando la instrucción NEG A tendremos 


Acumulador 


64 3216 8 4 2 1 


y Mn LS: LS Jo EJIDO SL O: Acumulador 


es decir (- 124),0 teniendo en cuenta que el bit 
más significativo (MSBI es el del signo. 
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Instrucciones lógicas 


Las principales instrucciones lógicas normal- 
mente presentes en el lenguaje Assembler se 
relacionan en la tabla de las págs. 923 y 924. 
La instrucción más usada es la AND, porque 
con ella es posible efectuar operaciones de en- 
mascarado, es decir es posible seleccionar al- 
gunos bits de una palabra a través de una más- 
cara para examinar a continuación su valor. 
Por ejemplo, supongamos que quiere determi- 
narse si en el contenido del acumulador el bit 5 
vale 1 O O. El método más rápido consiste en 
efectuar una operación de AND entre el acumu- 
lador y un determinado valor numérico, para evi- 
denciar sólo el bit 5. El número a utilizar, es decir 
la máscara, debe ser tal que todos los bits del 
acumulador resulten siempre 0, excepto el bit 5, 
que debe conservar el valor real. En nuestro ca- 
so, la máscara deberá hacerse así 


MSB bit. n. LSB 
Y 6 5 4 3 2 1 0 


0 0 1 0 qu. 0 0 0 


El resultado de la operación Acumulador AND 
Máscara es cero si el bit 5 vale cero, mientras es 
diferente de cero si el bit 5 del acumulador vale 
1. En sustancia, se trata de la misma operación 
AND vista en el Basic. Un test posterior sobre el 
bit cero del Registro de Estado proporciona el 
valor (0/1) del bit aislado así. 

En la figura de la pág. 925 se ilustra el diagrama 
de flujo y el programa Assembler que realiza la 
operación descrita. 

La instrucción XOR puede utilizarse para poner 
a cero el acumulador, aprovechando el hecho 
de que la OR exclusiva de cualquier número 
con sí mismo es cero 


XOR A,A 
01010011 Valor (acumulador) 
XOR 
01010011 Valor (acumulador) 
00000000 Resultado (al acumulador) 


La instrucción: 

LOAD A, 0 
(carga en el acumulador el valor inmediato cero) 
obtiene el mismo resultado (A = 0) pero con 
tiempos más largos. 


922 


Las instrucciones Shif y Rotate son útiles para 
convertir datos de la forma serie a la forma para- 
lela, para normalizar o escalar números, para 
compactar datos antes de memorizarlos o para 
separarlos antes de utilizarlos, para aislar bits 
sencillos o partes de palabra, para realizar mul- 
tiplicaciones y divisiones. La instrucción Test 
permite modificar los bits del Registro de Estado 
y realiza una resta entre el operando especifica- 
do y el valor cero. El resultado de la operación 
no se memoriza, aunque se varían los bits con- 
dicionales (Registro de Estado) de acuerdo con 
el resultado del test. De esta manera es posible 
cambiar los flags condicionales sin mover da- 
tos. La instrucción Test es análoga a la Compa- 
re (CMP), que en cambio efectúa una resta en- 
tre los dos operandos, de la que generalmente 
uno es el contenido del Acumulador y el otro es 
el contenido de una celda de memoria. 
También la instrucción Compare no transfiere 
ningún resultado al acumulador, pero cambia 
los bits del Registro de Estado, que pueden utili- 
zarse para condicionar saltos. Por ejemplo, la 
instrucción BZ LOOP (es decir salta si cero) rea- 
liza un test sobre el bit de cero del Registro de 
Estado y salta a la etiqueta LOOP si el bit de 
cero vale 1. 


Instrucciones de transferencia de datos 


En este grupo están comprendidas todas las 
instrucciones de intercambio de datos entre el 
microprocesador y sus periféricos. 

Las transferencias tienen lugar principalmente 
entre la memoria y los registros del microproce- 
sador, y las instrucciones utilizadas normalmen- 
te son Load y Store. La primera permite cargar 
el registro especificado (primer operando o des- 
tino) con el valor dado como segundo operando 
(fuente, origen). 

Por ejemplo, la instrucción 


código primer segundo 
instrucción operando operando 
LD A, 0 


tiene la misión de poner a cero el contenido del 
acumulador A (primer operando). El segundo 
operando indica directamente el valor a cargar 
(o sea sin acceder a la memoria). 

La instrucción Store representa el aspecto doble 
con respecto a la Load. A través de ésta es po- 
sible transferir el contenido de un registro en 
una celda de memoria especificada con la di- 


INSTRUCCIONES LOGICAS 


Instrucción Código Descripción Ejemplo 
mnemónico 


Operaciones de AND lógico 


Operaciones de OR lógico 


Operaciones de OR exclusivo 


Operación de complemento 
del operando 


Complemento del bit de acarreo 
en el Registro de Estado 


Operación de desplazamiento de uno o 
más puestos ala derecha (hacia el LSB) 
con la sustitución de los bits más 
significativos con ceros 


Shift right 
(desplazamiento 
ala derecha) 


Shift left Los bits del operando se desplazan uno o 

(desplazamiento más puestos ala izquierda (hacia el 

ala izquierda) MSB). Los bits menos significativos se 
ponen a cero 


Desplazamiento de los bits del operando 
Shift right aritmetic Uno o más puestos a la derecha (hacia el 
(desplazamiento LSB). El bit más significativo (MSB), es 
aritmético decir el del signo, se mantiene en su 


posición, y se copia simplemente en el bit 
adyacente. - - 
Bit del signo 
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Instrucción 


Rotate right 
(rotación a la 
derecha) 


Rotate le't 
(rotación a la 
izquierda) 


Rotate right 
through carry 
(rotación a la 
izquierda con 
acarreo) 


Rotate left 
through carry 
(rotación a la 
derecha con 
acarreo) 


Código 


INSTRUCCIONES LOGICAS 


Descripción 


mnemónico 


Produce el desplazamiento de 
los bits del operando uno o más 
puestos a la derecha con la 
sustitución del MSB por el LSB 


Produce el desplazamiento de 
los bits del operando uro o más 
puestos hacia la izquierda con 
la sustitución del SB por el 
MSB 


Produce el desplazamiento de 
los bits del operando uno o más 
puestos hacia la derecha. En el 
MSB se inserta el bit presente 
enel acarreo, mientras que el 
LSB se pone en el bit de acarreo 


Produce el desplazamiento de 
los bits del operando uno o más 
puestos hacia la izquierda. En el 
LSB se inserta el contenido del 
bit de acarreo, mientras que 

el MSB se pone en el acarreo 


Efectúa un examen (test) de los 
bits del operando, modificando 
exclusivamente los bits del 
Registro de Estado. 
Normalmente los bits de acarreo 
y desbordamiento se colocan a 
cero. El bit de medio acarreo no 
se modifica. 


SC: Z DENT? 


Registro de Estado 


ZO. NH P 


CZONHP 


OPERACIONES DE AND Y TEST SOBRE EL RESULTADO 


rección o con el nombre simbólico. En el segun- 
do caso es misión del Ensamblador traducir el 
nombre simbólico en una dirección, utilizando 
algunas normas que el programador debe in- 
sertar al principio de su programa. Por ejemplo, 
la instrucción 


ST A,/100H 

(memoriza el contenido de A en la celda 
que ha direccionado con el hexadecimal 
100) 


transfiere el contenido del acumulador en la cel- 
da de memoria cuya dirección es 100 hexadeci- 
mal* (direccionamiento absoluto). 

En las páginas 926 y 927 se han relacionado 


El código NOP significa No Operation. Cuando lo encuentra, el microprocesador 
no realiza ninguna acción (tiene un significado similar al REM del Basic). 
En la figura se ha representado el equivalente Basic del programa, que sólo 


tiene valor indicativo, puesto que con el nombre simbólico A se entiende 
cualquier variable y no el acumulador, como sucede en el Assembler 


las principales instrucciones de transferencia, 
Las instrucciones Move Block (MOVBK) y Move 
Multiple (MOVM) desplazan bloques de datos, 
así como bytes sencillos o dobles. Son muy úti- 
les para el programador y pueden mejorar las 
prestaciones de una máquina, especialmente 
durante las operaciones de entrada/salida. La 
instrucción Exchange (XCH) activa un doble 
desplazamiento de datos, es decir un intercam- 
bio de los contenidos entre dos operandos. Por 
ejemplo, en algunas CPU es posible intercam- 
biar los registros XL con la pareja de registros 
DE: 
XCH DE,XL 


* El número hexadecimal se especifica con la letra H. 
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Instrucción 


(carga de 
registro) 


(memorización) 


Move 
(transferencia) 


Move block 
(transferencia 
en bloque) 


Move múltiple 
(transferenc a 
múltiple) 


Exchange 
(intercambic) 
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INSTRUCCIONES DE TRANSFERENCIA DE DATOS 


Código Descripción 
mnemónico 
El contenido de una posición de 
memoria especificada como origen 
se transfiere a un registro especifi- 
cado como destino 


El contenido de un registro especifi- 
cado como origen se transfiere a 
una posición de memoria especifi- 
cada como destino 


El contenido de un registro (posi- 
ción de memoria) se transfiere a 
otro registro (posición de memoria) 


Esta instrucción produce la transfe- 
rencia de un bloque de datos 


El contenido de una posición de 


memoria se copia en más posicio- 
nes 


Los registros especificados se inter- 


cambian el contenido 


Ejemplo 


LD A, 11000 H 

Carga en A el contenido 

de la celda de dirección 

1000 (hexadecimal) 
Acumulador 


1000 H 


ST  A,/1000 H 

Carga en la celda 

de dirección 1000 el 

contenido del acumulador 
Acumulador Memoria 


Memoria 


MOV AB 
A origen, B destino 


Registro A Registro B 


oc) [A 


MOVBK 11000 H, /2000 H, 2 
Memoria 


1000 H 


Desplaza 2 bytes de 
la posición 1000 a la 
posición 2000 


2000 H 


XCH A, B Intercambio de contenido 


entre A y B 


Reg. SN AN Rea. B 


ETA HEN 
EA 


Instrucción 


Set overflow 


INSTRUCCIONES DE TRANSFERENCIA DE DATOS 


Código 
mnemónico 


Descripción 


El dato presente en la puerta de 
entrada se transfiere a un registro 
o a una posición de memoria 


El contenido de un registro o de una 
posición de memoria se transfiere a 
una puerta de salida 


El operando especificado se pone 
a0 


El bit de acarreo se pone a O 
(condición falsa o acarreo no exis- 
tente) 


El bit de desbordamiento se coloca 
a 1 (condición verdadera, desbor- 
damiento existente) 


El operando especificado se llena 
con una serie de cifras 1 


El bit de acarreo se pone a 1 
(condición verdadera, acarreo exis- 
tente) 


El bit de desbordamiento se pone 
a0 (concición falsa o desborda- 
miento nc existente) 


Ejemplo 
IN A, (P1) 
El dato leidc por 
la puerta de entrada P1 
se pone en el acumulador 


Acumulador Puerta P1 


OUT  (P1)A 


El contenido del acumulador se 
envía a la puerta P1 


Acumulador Puerta 1 


CLR A 
El contenido del acumulador 
se pone a O 


Acumulador Acumulador 


antes a 
[01011110] 101 'Ú 
CLRC 


El bit de acarreo se pone a O 


Estado antes Estado después 


CLRV 
Desbordamiento puesto a O 


Estado antes Estado después 


(074 
SET A 
El contenido del acumulador 
se pone a 1 

Acumulador 


Acumulador 


SET C 
Acarreo puesto a 1 (C)=1 


Estado antes Estado después 


ez 
| SET V 


Desbordamiznto puesto a 1 (V)=1 


Estado antes Estado después 
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Generalmente, las instrucciones de intercambio 
utilizan como operando uno de los registros del 
microprocesador. 

Las instrucciones de entrada/salida activan 
operaciones análogas a las transferencias de 
datos, con la diferencia de que la fuente (o el 
destino) es una puerta (de entrada o de salida) 
así como una posición de memoria. Por este 
motivo, algunos microprocesadores tratan las 
puertas de entrada/salida como posiciones de 
memoria y no prevén instrucciones específicas 
de 1/O. El inconveniente que se encuentra con 
las operaciones de transferencia de memoria es 


la mayor lentitud con respecto a las instruccio- * 


nes dedicadas. Un motivo por el que a veces no 
se proporcionan las instrucciones de l/O reside 
en el hecho de que para realizarlas son necesa- 
rias (además del código máquina que identifica 


la instrucción) adecuadas señales de control de 
1/O que utilizan una o más patillas del micropro- 
cesador. El número de patillas generalmente es- 
tá limitado a 40 y pueden producirse dificulta- 
des de construcción. 

Las instrucciones Clear se utilizan para poner a 
cero inmediata y rápidamente un registro, una 
celda de memoria o determinados bits de esta- 
do (Clear Carry o Clear Overflow). 

Las instrucciones Set son dobles con respecto a 
las anteriores, y permiten cargar todos 1 en un 
registro o en una celda de memoria, además de 
poner a 1 un bit de Registro de Estado. 

Estas instrucciones no son indispensables, 
puesto que es posible obtener el mismo resulta- 
do utilizando una o más instrucciones siempre 
presentes (Load o Store), pero tienen la ventaja 
de una ejecución muy rápida. 


INSTRUCCIONES DE SALTO 


Código 
or FE 
BZ 


Branch if zero 
(salta si cero) 


Branch if not zero BNZ 
(salta si diferente 
de cero) 


Branch if equal BE 
(salta si igual) 


Salta si el resultado de la última operación realizada e 
0, es decir, si el bit de cero del Registro de Estado es 1 


Análoga a la Branch si no cero 


Branch if not equal Análoga a la Branch si no cero 
(salta si diferente) 


Branch if carry 


BC 
(salta si hay acarreo) 


Branch if not carry BNC 
(salta si no hay 
acarreo) 


Branch if positive 
(salta si positivo) 


Branch if negativo 
(salta si negativo) 


Branch if overflow 
(salta si hay 
desbordamiento) 


Branch if not overflow BNO 
(salta si no hay 
desbordamiento) 


Branch if greater than BGT 
(salta si mayor) 


Salta si el resultado de la última operación tiene un 
acarreo (si el bit de acarreo del Reg. de Estado es 1 


Salta si el resultado de la última operación no tiene 
acarreo, es decir si el bit de acarreo del Registro de 
Estado es 0 


Salta si el resultado de la última operación es positivo, 
es decir si el bit negativo (o sign) del Registro de Estado 


Salta si el resultado de la última operación es negativo, 
(si el bit negativo [o sign] del Registro de Estado es 1) 


Salta si el resultado de la última operación produce un 
desbordamiento, es decir si el bit de desbordamiento 
(Vu O) del Registro de Estado es 1 


Salta si el resultado de la última operación no produce 
desbordamiento, es decir si el bit de desbordamiento 
(Vu O) del Registro de Estado es O 


Salta si existe una relación «mayor», es decir si los bils 
del Registro de Estado verifican la siguiente relación 


lógica 
NORV OR (NOTZ) + (NOTN) OR (NOTV) OR 
(NOTZ) = 1 


Instrucciones de bifurcación (Branch) 
Una instrucción de bifurcación (o derivación) es 
una instrucción que fuerza al microprocesador a 
saltar de un punto a otro del programa. El salto 
interrumpe la ejecución secuencial normal y el 
calculador pasa a realizar una parte del progra- 
ma que se inicia en una dirección especificada. 
En otras palabras, la instrucción de bifurcación 
carga en el Contador de Programa la dirección 
de la posición a la que se quiere saltar, y el mi- 
croprocesador continúa la ejecución a partir de 
la instrucción direccionada por el nuevo valor 
contenido en el Contador de Programa. 

Un salto puede ser incondicionado o condicio- 
nado al producirse un cierto suceso. Una bifur- 
cación (o jump) incondicionada que pone un 
nuevo valor en el PC es desaconsejable, puesto 
que altera el flujo lógico del programa sin motivo 


aparente, mientras que una bifurcación activada 
según que se verifique o no una cierta condición 
hace más lógico y legible el programa. 

Este concepto volverá a verse cuando se hable 
de la programación estructurada, en la que se 
impone como regla general evitar las instruccio- 
nes de salto incondicionado. 

Para condicionar un salto se usan los bits del 
Registro de Estado (flags de estado) que se mo- 
difican en función de los resultados de las diver- 
sas instrucciones. 

Las instrucciones de bifurcación condicionada, 
indicadas en la tabla visible en estas dos pági- 
nas, permiten al ordenador repetir una misma 
secuencia de instrucción hasta que no se pro- 
duce una cierta condición. 

Utilizando este tipo de instrucción es posible to- 
mar decisiones, ya que puede determnarse 


Branch if greater 
than or equal (salta si 
es mayor o igual) 


Branch if less than 
(salta si menor) 


Branch if less than 
o equal 

(salta si menor 

o igual) 


Branch if higher 
(salta si más grance) 


Branch if not 
higher 

(salta si no 
más grande) 


Branch if lower 
(salta si es 
más pequeño) 


Branch if not lower 
(salta si no 
más pequeño) 


Branch if parity 
even 
(salta si paridad par) 


Branch if parity odd 
(salta si paridad 
impar) 


Salta si existe una relación de «mayor o igual», es decir si 
los bits del Registro de Estado verifican la relación lógica 
(NORV) AND [(NOTN)OR(NOTV)] 


Salta si existe una relación de «menor», es decir si entre 
los bits del Registro de Estado es verdadera la relación 
lógica [NOR(NOTV)] AND [(NOTN) ORV] = 1 


Salta si existe una relación de «menor o igual», es decir, si 
entre los bits del Registro de Estado se verifica la relación 
lógica Z AND [NOR(NOTV)] AND [(NOTN)OR V] = 1 


Salta si existe una relación de «más grande», sin tener en 
cuenta los signos de los números, es decir (NOTC) OR 
(NOTZ) = 1 


Salta si existe una relación de «no más grande» entre dos 
cantidades sin signo, es decir si CANDZ = 1 


Salta si existe una relación de «más pequeño», sin tener 
en cuenta los signos de los números, es decir si C = 1. 
Análoga a la Branch if carry 


Salta si existe ura relación de «no más pequeno» sin tener 
len cuenta los números, es decir, si C = 0, Análoga a la 
Branch if not carry 


Salta si el bit de paridad vale 1 (paridad par), es decir si al 
número de bits puestos a 1 es par 


Salta si el bit de paridad es O (paridad impar), es decir si el 
número de bits puestos a 1 es impar 
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qué instrucciones realizar en base a los datos 
recibidos o a los resultados obtenidos en una 
operación anterior. 

Las condiciones más sencillas se basan en el 
valor directo de los bits de estado como el aca- 
rreo (BC, Branch if Carry) o el cero (BZ, Branch 
if Zero). 

Generalmente hay disponibles tanto las instruc- 
ciones que comprueban si la condición es ver- 
dadera (branch if zero, salta si cero) como las 
dobles, que comprueban si la condición no es 
verdadera (branch if not zero, salta si no cero). 
Por ejemplo, en el programa 


LDA,3 (carga el valor 3 en el acumulador) 

CMP A, 3 (compara el acumulador con el va- 
lor 3) 

BZ CERO (salta a la etiqueta CERO si el bit de 
cero se pone a 1) 


se realiza siempre el salto, puesto que la condi- 
ción es siempre verdadera. En cambio, si la últi- 
ma instrucción fuese 


BNZ NO CERO (salta a la etiqueta NO CERO si 
el bit de cero se pone a 0) 


la condición sería siempre falsa, y el salto nunca 
se produciría. 

Otras instrucciones de salto están condicionea- 
das como si fuesen precedidas de una instruc- 
ción de Ccmpare (CMP), o sea de compara- 
ción; por tanto, es posible tener operaciones co- 
mo Branch if Equal (BE, salta si igual), Branch if 
Greater Than (BGT, salta si mayor), Branch if 
Less Than (BLT, salta si menor). 


Instrucciones de salto (Skip) 


Las instrucciones de skip (literalmente salta por 
encima) son saltos condicionados en los que si 
la condición especificada se verifica, se salta la 
siguiente instrucción a la de skip. 
No se especifica una etiqueta de llegada del 
salto: si la condición resulta verdadera, el pro- 
grama salta solamente la siguiente instrucción y 
continúa secuencialmente. 
Por ejemplo, en el siguiente programa 

LD A,/100 H - (carga en el acumu- 
lador el contenido 
de la celda de di- 
rección  hexadeci- 
mal 100) 


930 


SUB A,1 (resta 1 al acumula- 
dor) 
skP (salta la siguiente 


instrucción si el re- 
sultado es positivo) 
B NEGATIVO (salta a la etiqueta 


NEGATIVO) 
POSITIVO  NOP (rutina POSITIVO) 
B FIN (salta a la etiqueta 


FIN) 


NEGATIVO NOP (rutina NEGATIVO) 


después de haber realizado el test (SKP) puede 
tenerse la ejecución de la siguiente instrucción 
(B NEGATIVO) o el salto a la POSITIVO NOP. Un 
equivalente en Basic puede ser el siguiente: 


10A = 1642 
20A=A-1 

30 IFA > 0 GOTO 50 
40 GOTO... 


El mismo programa puede escribirse también 
en la forma 


LD A,/100 H 
SUB A,1 
BN NEGATIVO (salta a la ctiqueta 
NEGATIVO si el 
bit N vale uno) 
POSITIVO  NOP 


NEGATIVO NOP 


La instrucción de skip es útil cuando el código 
Assembler no prevé instrucciones de bifurca- 
ción. Efectivamente, es posible tener el mismo 
efecto de una instrucción de bifurcación utilizan- 
do una instrucción de skip y un salto incondicio- 
nado. La ventaja que se tiene en este último ca- 
so es la obtención de un código más compacto, 
formado por instrucciones más cortas. General- 
mente, las instrucciones de skip condicionadas 
disponibles son análogas a las instrucciones de 
bifurcación, con la única diferencia que, si la 
condición se verifica, el control salta sobre la si- 
guiente instrucción a la de skip, y prosigue en 
secuencia. Los códigos de esta clase de ins- 
trucciones son similares a los de la tabla de las 


a. / 


Aplicaciones al trabajo de gestión del ordenador personal Apple. 


págs. 928 y 929, sustituyendo la letra B por SK 
(es decir SKip en lugar de Branch). 


Instrucciones de llamada a subrutina y 
retorno 

Las instrucciones de llamada a subrutina son 
instrucciones de salto particulares. 

La sintaxis es del tipo: 


CALL LABEL (salta incondicionalmente a 
la etiqueta LABEL) 


La instrucción de llamada puede ser condicio- 
nada. Por ejemplo, 


CALLZ LABEL (salta a LABEL siZ = 1) 
CALLGT LABEL (salta a LABEL si mayor 


que...) 


A diferencia de lo que sucede para las instruc- 
ciones de salto (branch o skip) el contenido del 
Contador de Programa se salva antes de ser 
sustituido por el nuevo valor. Sólo después de 
esta operación se procede a realizar las instruc- 
ciones que se encuentran en la dirección espe- 
cificada mediante la etiqueta. Cuando se en- 


cuentra una instrucción Return (instrucción de 
retorno, código mnemónico RET), el contenido 
del Contador de Programa salvado anteriormen- 
te se recarga en el registro, y la instrucción del 
programa prosigue con la instrucción siguiente 
a la CALL. 

También la instrucción Return puede ser condi- 
cionada, análogamente a lo que sucede para 
las instrucciones Call: 


RETZ (retorna si el bit de cero vale 1) 
RETGT (retorna si mayor que...) 


Por tanto, la característica peculiar de estas ins- 
trucciones es la de salvar y recuperar el conteni- 
do del PC, Generalmente esta alteración se rea- 
liza mediante la pila, mientras que el modo en 
que opera el microprocesador depende del tipo 
de llamada. Si la llamada es condicionada y la 
posición especificada se produce, el contenido 
del Contador de Programa es «empujado» 
(push) a la pila; por tanto, el contenido de la cel- 
da de memoria que sigue al código CALL (o sea 
LABEL) se carga en el PC, y el control pasa a la 
instrucción que se encuentra en la nueva direc- 
ción, y viceversa, si la condición especificada 
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en la llamada no se cumple, se realiza la instruc- 
ción que sigue a la llamada condicionada En 
caso de llamada incondicionada siempre se tie- 
ne el salto a la instrucción cuya dirección se es- 
pecifica mediante la etiqueta. 

En ambos casos, el valor de PC se recupera en 
el acto de la ejecución de la instrucción RET 
(Return); esta operación comporta la transferen- 
cia al PC de la dirección salvada anteriormente 
en la pila. 

En las dos tablas de esta página se relacionan 
las instrucciones de llamada a subrutina y las de 
retorno, 

También es posible llamar desde el interior de 
una subrutina otra subrutina. En estos casos. 
cada vez que se realiza CALL, el valor del Con- 
tador de Programa se salva en la pila, y análo- 
gamente, cada vez que se realiza una ins:ruc- 


ción Return, el valor de la parte superior de la 
pila se recupera en el Contador de Programa. 


Instrucciones varias 


En la tabla de la página siguiente se han relacio- 
nado algunas instrucciones que suelen encon- 
trarse en los lenguajes Assembler y que no per- 
tenecen a ninguna de las clases examinadas 
anteriormente. 


NOP. Cuando el microprocesador descodífica 
la instrucción NOP (No OPeration, ninguna ope- 
ración) no se realiza ninguna función durante un 
ciclo máquina. Terminado este intervalo de tiem- 
po se realiza la instrucción que sigue a la NOP, 
El efecto de la NOP sólo es el de retardar la eje- 
cución de la siguiente instrucción y se utiliza 
precisamente para insertar comentarios. 


INSTRUCCIONES DE LLAMADA A SUBRUTINAS 


Código 

a | 
Call CALL Salta a la etiqueta especificada salvando el contenido 
(llama) del PC en la pila 


CALLZ Si el bit de cero es igual a 1, entonces salta a la etiqueta 
especificada salvando el contenido del PC en la pila 

CALLC Si el bit de acarreo es 1, entonces salta a la etiqueta 
salvando el contenido del PC en la pila 

CALLN Si el bit de signo es iguel a 1 salta a la etiqueta, salvando el 
contenido del PC en la pila 


Call if zero 
(llama si cero) 


Call ¡f carry 
(llama si hay 
acarreo) 


Call ¡f negative 
(llama si negativo) 


INSTRUCCIONES DE RETORNO 


Instrucción 


Return 
(vuelve) 


Return if zero 
(vuelve si cero) 


Return if carry 
(vuelve si hay 
acarreo) 


Return if negative RETN 


(vuelve si negativo) 
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Código 
memo, Peste 
MA el valor del PC si se había salvado en la pila 
RETZ Recupera el valor del PO salvado en la pila sólo si el bit de 
cero es 1 


RETC Recupera el valor del PC salvado en la pila sólo si el bit de 
acarreo es 1 


Recupera el valor del PC salvado en la pila sólo si el bit de 
signo es 1 (valor negativo) 


INSTRUCCIONES VARIAS 


Código 


8 


No Operation 
(ninguna operación) 


Push 
(empuja) 


3 


No se realiza ninguna operación, y el control pasa a la 
siguiente instrucción 
Los operandos especificados son «empujados» a la pila 


El primer elemento de la pila se pone en el operando 
especificado 


Halt Bloquea la ejecución de las instrucciones hasta que no 


(para) 


interviene un acontecimiento exterior (interrupt) 


Wait Análoga a la anterior, pero la ejecución puede reempren- 
(espera) derse también con un acontecimiento interno 


Break 
(interrumpe) 


Aadjust ADJ 
(adapta) 


Permite la ejecución de un programa de interrupción 


El contenido del operando, generalmente del acumulader, 
se «reajusta» para representar el correcto resultado BCD. 


Para las operaciones en BCD es necesario sumar 6 para 
evitar las configuraciones no admitidas en el código 


Enable Interrupt El Habilita las instrucciones, es decir es posible interrumpir el 
(habilita el interrupt) programa 


Disable Interrupt 
(Deshabilita el 
interrupt) 


Translate 
(traduce) 


PUSH y POP. Estas instrucciones permiten 
gestionar un área de memoria de pila. 

A través de una PUSH es posible insertar un va- 
lor en la pila, mientras que con una POP es posi- 
ble hacer «saltar fuera de la pila» el último valor 
depositado. 


HALT y WAIT. Mediante las instrucciones 
HALT (detente) o WAIT (espera) es posible de- 
tener la ejecución del programa hasta que un 
acontecimiento externo, generalmente una inte- 
rrupción, no desbloquea el microprocesador, 
Este tipo de instrucción permite, por ejemplo, 
suspender la ejecución hasta que no se esté se- 
guro de que un periférico está correctamente 
sincronizado (por ejemplo para iniciar una trans- 
ferencia de un bloque de datos). 


Deshabilita las instrucciones, es decir no es posibe 
interrumpir la ejecución del programa hasta que no se 
rehabilitan las instrucciones con la instrucción El 


Dada una tabla (por ejemplo la tabla BCD) se obtiene a 
través de un índice el valor correspendiente a un elemento 
de la tabla 


Break. La instrucción BRK (interrumpe) permite 
lanzar uno de los programas interrupciones sin 
que se produzca la interrupción hardware. Tam- 
bién en este caso, el contenido del Contador de 
Programa se salva. 


Enable Interrupt y Disable Interrupt. También 
las instrucciones El (Enable Interrupt, habilita la 
interrupción) y DI (Disable Interrupt, deshabilita 
la interrupción) se utilizan para gestionar las in- 
terrupciones. Mediante la instrucción DI es posi- 
ble deshabilitar las interrupciones, que se reacti- 
van con la instrucción El. De este modo, ningu- 
na causa externa puedo interrumpir la ejecución 
del segmento de programa comprendido entre 
las dos instrucciones. 

Se utilizan para efectuar con seguridad las ope- 
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raciones más delicadas, como la transferencia 
de bloques de datos. 


Adjust y Translate. Las instrucciones Adjust 
(ADJ, adapta) y Translate (TR, traduce) efectúan 
operaciones numéricas particulares, como por 
ejemplo traducciones de codificación. 


Las reglas de ensamblaje 


Se definen como reglas de ensamblaje las ins- 
trucciones que normalmente se insertan en un 
programa Assembler como informaciones para 
el Ensamblador, con el objeto de controlar la co- 
rrecta traducción del programa de los códigos 
mnemónicos al lenguaje máquina. 

Estas reglas también se llaman pseudoopera- 
ciones, puesto que no generan un código má- 


quina realizable por el microprocesador. Son 
precisamente comandos dados al programa 
Ensamblador para definir símbolos, preparar 
espacio para las variables, asignar las áreas de 
memoria para programas y datos, definir el final 
del programa y el formato del listado. 
También las reglas de ensamblaje se represen- 
tan con códigos mnemónicos del todo análogos 
alas de las instrucciones; sin embargo, éstos se 
analizan aparte, puesto que no encuentran co- 
rrespondencia con códigos máquina en binario. 
Cada Ensamblador debe prever (incluir) subruti- 
nas (en Assembler) que efectúan las acciones 
impuestas por las reglas. Algunas de las reglas 
más comúnmente utilizadas por los programas 
Assembler se compendian en la tabla de esta 
página. 


REGLAS DE ENSAMBLAJE 


: Cód 
E 
el (0) 


igo 
ico 

Originado RG El operando asociado se pone en el Contador de 
Programa y especifica la posición de memoria 
donde empezarán el programa, la subrutina o los 
datos 

Equate EQU Asocia a un símbolo una constante, una dirección o 
una expresión 


ORG + 100 

El programa 
empezará en 
la posición 100 


ALFA EQU 2 
Donde haya AL- 
FA se 

sustituirá por 

el valor 2 


Informa al Ensamblador que ha llegado al final del END 
programa 


PAGE La lista del programa prosigue en una nueva página 


PAGE 


imprime la cabecera asociada al cócigo TITLE 


Title TITLE Hace proseguir la lista en una nueva página y se 


Rescrive 
memcry 


RES Reserva un bloque de memoria para poder memori- 
zar después datos 


Data DATA El Ensamblador llena las posiciones de memoria 
especificadas con el valor dado 


934 


El diagnóstico 
computerizado (1) 


La extraordinaria evolución que la microelectró- 
nica ha conocido en los últimos 20 años no ha 
dejado de producir sus efectos en todos los 
campos de la tecnología, con la masiva entrada 
del microprocesador en el control y en la realiza- 
ción de aparatos cada vez más sofisticados. 
Los departamentos especialistas hospitalarios 
son quizá los lugares en que el advenimiento de 
la tecnología microelectrónica avanzada ha pro- 
ducido sus efectos más evidentes, y dende las 
nuevas conquistas tecnológicas se han aplica- 
do de forma más difusa. La gama de los apara- 
tos biomédicos que se benefician del control 
cormpulerizado se orientan tanto al diagnóstico 
(con rayos X, nuclear, de ultrasonidos, termo- 
gráfico) como a la terapia (electromedicina para 
la cardiología y para la monitorización de los pa- 
cientes en terapia intensiva). Las industrias que 
se ocupan de las aplicaciones biomédicas de la 
electrónica y de la informática actualmente es- 
tán dotadas de importantes laboratorios de in- 
vestigación aplicada, que permiten un continuo 
perfeccionamiento de los aparatos. 

La evolución de la microelectrónica ha tenido 
como consecuencia otra rápida evolución de 
las aplicaciones biomédicas en general, que en 
pocos años ha dejado definitivamente obsoletas 
las grandes conquistas conseguidas desde el 
final del siglo XIX hasta los años sesenta. El mo- 
saico de las aplicaciones tecnológicas en el 
sector biomédica se ha ampliado hasta el punto 
de crear el espacio para el nacimiento de una 
nueva ciencia aplicada, la bioingeniería, mien- 
tras los mismos aparatos de uso común, como 
por ejemplo los de diagnóstico por rayos X, han 
sufrido transformaciones para hacerlos más 
adaptables al desarrollo de análisis y a investi- 
gaciones extremadamente específicas. 

En los primeros aparaios, la radiación se produ- 
cía mediante una gran válvula (tubo de radia- 
ción) y se enviaba a una placa fotográfica o a 
una pantalla fluorescente, y entre el tubo y la 
placa se colocaba el sujeto a radiografiar. La 
intensa dosis de radiación a la que quedaban 
expuestos los pacientes no producía entonces 
una particular preocupación puesto que todavía 
no se sabía nada sobre sus efectos genéticos. 
La realización de las primeras máquinas que 
podían efectuar radiografías de tórax constituyó 


una conquista sin precedentes, que permitió 
proporcionar un diagnóstico adecuado al pro- 
blema de las afecciones pulmonares. 

En los últimos años, las industrias de este sector 
han desarrollado una amplia gama de aparatos 
primarios y accesorios, que van desde la simple 
mesa horizontal a los dispositivos tomográficos 
pluridireccionales, a los cambios de película au- 
tomáticos y a las reveladoras automáticas en lí- 
nea. El grado de perfeccionamiento alcanzado 
en estos aparatos ha permitido reducir notable- 
mente la dosis de radiación que se aplica a los 
pacientes y aumentar la definición y el significa- 
do de la imagen radiográfica. 

La técnica de exploración por rayos X no se limi- 
ta a la posibilidad de efectuar proyecciones nor- 
males del órgano en examen. La tomografía es 
una técnica que permite la visualización de una 
determinada capa anatómica imponiendo al tu- 
bo de radiación movimientos precisos (elípticos, 
circulares, lineales, epicicloidales) con el pa- 
ciente dispuesto en la posición más adecuada. 
Los automatismos que controlan el movimiento 
de la superficie de la mesa permiten girar el 
sujeto incluso 180%, mientras que accesorios co- 
mo los colimadores automáticos y los seriógra- 
fos, a veces forman parte del equipo estándar 
de las máquinas. La aplicación del intensifica- 
dor de brillo y del circuito cerrado de televisión, 
junto con la construcción de mesas completa- 
mente automáticas telecomandadas, permite 
hoy al operador trabajar en locales completa- 
mente aislados de los aparatos de radiología, 
resultado de significado fundamental para las 
exigencias de la radioprotección. 

Un sistema de radiodiagnóstico de la última ge- 
neración es el Diagnost 90, un mastodonte de 
1.650 kg de peso proyectado para satisfacer las 
exigencias de los laboratorios más grandes, en 
los que la cantidad de trabajo de rutina necesita 
características muy definidas de calidad de 
imagen, eficiencia y fiabilidad. 

Fl bastidor está suspendido flotante sobre el ba- 
samento, proyectado para ser colocado al abri- 
go de una pared. El basamento está encerrado 
en un armario metálico que contiene también el 
equipo electrónico. Las características de movi- 
miento de exploración se controlan con un mi- 
croprocesador, que permite inclinar el haz con- 
trolando automáticamente el paralaje y variar la 
distancia entre la fuente y la imagen. Todos los 
comandos para el accionamiento y para el con- 
trol del posicionado del bastidor son duplica- 
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dos, y se encuentran tanto en el panel frontal de! 
mismo bastidor como en una consola situada en 
posición remota. 

El sistema está equipado con un cargador serie 
de placas provisto de control automático de la 
exposición y de la dosis para la fluoroscopia. La 
distancia que separa la película de la superficie 
de la mesa es de sólo 7 cm; esta característica 
permite trabajar en condiciones óptimas de 
geometría, eliminando totalmente los problemas 
asociados a las emisiones secundarias. El car- 
gador puede aceptar placas de diversas medl- 
das, cuyo centrado se produce automáticamen- 
te, mientras que el transporte en la posición de 
trabajo está controlado por un pulsador adecua- 
do. Los programas de exposición prevén ade- 
más la opción tomográfica. 

El corazón de un sistema de radiodiagnóstico 
es el generador de rayos X. El sistema puede 
estar equipado con diversos generadores de 
potencia variable entre 50 y 100 kW, que permi- 
ten tiempos de exposición menores a 1 ms. El 
tubo de radiación está equipado con un colima- 
dor automático predispuesto para el empleo 
con intensificador de imágenes, y puede sumi- 
nistrar un haz exactamente cónico, eliminando 
así las enojosas radiaciones extrafocales. El co- 
limador se abre o se cierra automáticamente, 
según el tipo de película insertado en el carga- 


Sistema de radiodiagnóstico computerizado 
Diagnost 90 de Philips. 
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Philips 


dor serie, el programa de exposición seleccio- 
nado y la distancia fuente-película elegida. 

El cargador en serie está completado con un 
intensificador de imagen dotado de una pantalla 
de entrada de-9 pulgadas. Las elevadas carac- 
terísticas de absorción de la pantalla y las eleva- 
das propiedades de transformación de la ima- 
gen permiten reducir notablemente las dosis ne- 
cesarias para obtener imágenes fluoroscópicas 
suficientemente claras. La imagen fluoroscópica 
se visualiza a través de un circuito de televisión. 
El control voltimétrico y el amperimétrico permi- 
ten mantener al nivel mínimo indispensable el 
flujo de radiación a través de la pantalla de en- 
trada y, en consecuencia, minimizar también la 
dosis a la que se expone el paciente. La imagen 
fluoroscópica visualizada en el monitor puede 
registrarse automáticamente sobre película o 
papel sensible gracias a una fotocámara fluoro- 
gráfica de 105 mm, dispuesta debajo del panel 
anterior, que incluye el cargador en serie. La fo- 
tocámara impresiona automáticamente en el 
margen de la imagen un cóaigo de Identifica- 
ción del paciente. 

Las posibilidades del movimiento del sistema 
examinado son notables, y finalizan con aplica- 
ciones particulares, como los exámenes radioló- 
gicos del aparato gastro-intestinal y la tomogra- 
fía planar-paralela (es decir realizada sobre un 
plano paralelo al del bastidor). Para la ejecución 
de una rápida serie de proyecciones del esófa- 
go, por ejemplo, un programa adecuado combi- 
na el movimiento de exploración del tubo de ra- 
diación con el movimiento lonaitudinal del plano 
del bastidor, para realizar un movimiento relativo 
muy rápido (y por tanto, una velocidad de explo- 
ración muy elevada) sin molestias para cl pa- 
ciente. De este modo es posible trabajar a velo- 
cidades iguales a las del movimiento de deglu- 
ción y seguir así paso a paso el movimiento del 
medio de contraste. 

La tomografía y la zonografía planar-paralela 
necesitan la posibilidad de girar el tubo de ra- 
diación alrededor de un eje ortogonal al eje del 
cuerpo y paralelo al plano del bastidor. Gracias 
a este movimiento es posible cancelar los deta- 
lles que no interesan, evidenciando solamente 
los que corresponden a una zona restringida, 
aproximadamente plana, alrededor del eje de 
rotación. En los sistemas como el Diagnost 90, 
la opción tomográfica es completamente auto- 
matizada y puede seleccionarse apretando un 
pulsador de la consola. 


Sistema de radiodiagnóstico computerizado Poly-Diagnost C. 
A la izquierda, en primer plano, es visible el brazo lateral. 


Esta operación impone automáticamente una 
distancia fuente-imagen de 110 cm. Inicialmen- 
te, el tubo .cdle radiación está posicionado en el 
eje perpendicular, de modo que permita el con- 
trol del correcto apuntado a través de ¡a imagen 
fluoroscópica y, por tanto, efectúa el movimiento 
rotatorio de exploración, volviendo automática- 
mente a la posición inicial, 

El sistema de control integrado va a parar a una 
consola en la que los comandos y los indicado- 
res están colocados según sectores separados, 
cada uno de los cuales está dispuesio para el 
control de las diversas modalidades de opera- 
ción posibles. 

Los circuitos de control de las diversas funcio- 
nes están montados sobre tarjetas separadas y 
son supervisados por un microprocesador que 
comprende una memoria programada de sólo 
escritura (ROM). Las técnicas radiológicas de 
detección angiográfica han tenido, como los 
otros métodos de exploración con rayos X, pro- 
gresos conseguidos mediante la gestión auto- 
mática de los aparatos. 

Dos sistemas angiográficos de la última genera- 
ción son el Poly-Diagnost UPI para la angiogra- 


fía general y el Poly-Diagnost C, expresamente 
diseñado para la angiografía cardiaca. 

En el primer sistema, de tipo multidisciplinario, la 
característica principal que se observa a prime- 
ra vista es la estructura del brazo en U, que per- 
mite girar 330* el tubo de radiación alrededor 
del cuerpo del paciente en observación. Esta 
posibilidad de rotación resulta indispensable 
para evidenciar los aetalles más sutiles que ca- 
racterizan la imagen angiográfica. El peso total 
del aparato (proyector y bancada) es de cerca 
de una tonelada. 

En los dos extremos del brazo en U hay instala- 
dos el tubo de radiación y el grupo intensifica- 
dor de imagen/cargador de película. 

El control de todo el aparato puede programar- 
se sobre fichas perforadas, así como puede es- 
tructurarse el movimiento de la fuente de la for- 
ma más adecuada para resolver cada exigen- 
cia particular de exploración. El sistema Poly 
Diagnost C se dedica, como se ha dicho, princi- 
palmente a la cardio angiografía. Su estructura 
puede verse en la fotografía de arriba donde se 
observan los detalles constructivos del brazo en 
paralelogramo articulado. 
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Consola de control y de maniobra del sistema Poly-Diagnost C. 


Esta solución permite la ejecución de proyeccio- 
nes de acuerdo con cualquier ángulo de inclina- 
ción, lo cual asume una notable importancia en 
el examen de órganos intensamente vasculari- 
zados como el músculo cardiaco. El posiciona- 
miento inicial del brazo en paralelogramo se 


realiza esta vez manualmente y puede obtener-' 


se con una ligera acción sobre la manija. Otra 
característica peculiar es la cama enteramente 
libre, que permite la exploración de cualquier re- 
gión anatómica sin que sea necesario desplazar 
el paciente. La configuración del sistema puede 
completarse con un segundo brazo lateral, que 
en unión del primero, permite la exploración bi- 
planar simultánea del corazón. Ambos brazos 
giran de forma síncrona bajo el control del mi- 
croprocesador central. 

El sistema de funcionamiento de los aparatos 
radiográficos es del todo similar al de los apara- 
tos de radiodiagnóstico de uso general. El con- 
trol automático de la distancia entre el tubo de 
radiación y el sujeto examinado elimina cual- 
quier peligro de contacto, que sería particular- 
mente peligroso especialmente en el caso de 
aplicación de cataterismos. 

Como puede observarse en la fotografía de esta 
página, la consola de maniobra y de control de 


un aparato de este tipo no tiene nada que envi- 


diar al panel de control de una estación ferrovia- 
ría. Todo el sistema está gestionado por un or- 
denador que procesa en tiempo real todos los 
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datos correspondientes al particular examen 
realizado. 

El último hallazgo de la tecnología para la reso- 
lución del sistema vascular mediante aparatos 
de rayos X es la llamada radiografía vascular 
digitalizada. Se trata de una nueva metodología 
de proceso numérico de la imagen radiográfica 
que promete convertirse en la técnica estándar 
de exploración del próximo futuro, dada la relati- 
va sencillez de los principios y de los aparatos 
en que se basa. 

El esquema de principio del sistema de proceso 
se ha representado en la pág. 940. Existen tres 
niveles diferentes de proceso numérico de la 
señal procedente del aparato radiológico, cada 
uno de los cuales está representado por el blo- 
que «algoritmos» y el operador puede seleccio- 
narlo apretando uno de los tres pulsadores su- 
periores de la sección MODE del panel del con- 
trol. A ello se añade un cuarto tipo de proceso 
(post-processina) que puede intervenir en los 
datos registrados de cada uno de los tres pro- 
cesos principales. 

La señal analógica procedente de la pantalla 
fluoroscópica y del intensificador de imagen del 
aparato de exploración se envía a través del in- 
terfaz a un amplificador logarítmico. El digitaliza- 
dor (convertidor analógico-digital) convierte la 
salida del amplificador en señales numéricas 
que se memorizan. Por tanto, el contenido de la 
memoria se procesa en tiempo real con uno de 


los tres algoritmos fundamentales, y la salida, 
que se registra en disco o cinta, se presenta si- 
multáneamente en el monitor. 

El primero de los tres algoritmos de proceso se 
denomina serial imaging mode y se ha repre- 
sentado de forma esquematizada en la figura A. 
Después de la introducción en la vena del me- 
- dio normal de contraste, pero antes de que la 
artería O el vaso examinado se hagan opacos, 
se toma una imagen iluoroscópica del campo, 
que después servirá como máscara sustractiva. 
Efectivamente, esta imagen se resta con méto- 
dos electrónicos de una serie de imágenes to- 
madas sucesivamente a intervalos de cerca de 
1 s (la duración de este intervalo de tiempo pue- 
de variarse). El resultado de cada operación de 
resta es una nueva imagen en la que el fondo 
(los órganos que no interesan) queda cada vez 
más debilitado, hasta visualizar solamente el va- 
so objeto de investigación. El serial imaging mo- 
de se ha aplicado con éxito al examen de la 
carótida, de los vasos periféricos y de las arte- 
rías renales y abdominales. 

La segunda posibilidad de proceso es el conti- 
nuous imaging mode. En este caso (fig. B), for- 
ma la manera dicha anteriormente una máscara 
fluoroscópica antes de la inyección del medio 
de contraste, que seguidamente se resta de for- 
ma continua a la imagen fluoroscópica del deta- 
lle hecho opaco, a intervalos de 16,6ms. La 
imagen producida se presenta en tiempo real 
en el monitor y simultáneamente se memoriza 
en disco o cinta. El proceso podrá reclamarse 
después sobre el monitor a partir del soporte 
magnético. Esta técnica se presta de forma par- 


ticular para evidenciar los movimientos de la pa- 
red ventricular, las valvulopatías y las arterias 
pulmonares. 

El último algoritmo de proceso se denomina ti- 


- me interval difference mode (TID) y consiste en 


la resta de imágenes producidas a intervalos 
constantes por el continuous imaging mode y 
registradas en memorias. En el esquema de la 
figura C se presenta la producción de tres imá- 
genes por resta de cada tercera imagen de la 
serie registrada previamente. 

El postprocessing mode (fig. D) es fundamental- 
mente un sistema de proceso «off-line» que, por 
tanto, no necesita la permanencia del paciente 
bajo el aparato radiográfico, y permite procesar 
las imágenes anteriormente registradas aplican- 
do una u otra de las posibilidades indicadas. Las 
posibilidades ofrecidas por la radiografía vascu- 
lar digitalizada son muchas. En primer lugar se 
subraya la relativa no impasividad del método, 
asociada a una resolución de la imagen proce- 
sada mejor que la que es posible obtener con 
los tradicionales sistemas angiográficos. Ade- 
más, las imágenes procesadas con el sistema 
sustractivo son producidas en tiempo real, y es 
posible tener en cualquier momento una copia 
sobre papel de lo que se ha presentado en el 
monitor gracias a una fotocámara multiformato 
conectada al aparato. 

Finalmente debe observarse que el sistema 
digital puede aceptar a la entrada la imagen 
fluoroscópica que se produce con un aparato 
radiológico cualquiera. Estas circunsiancias 
dejan prever para el próximo futuro una amplia 
difusión de este nuevo método. 


Panel de los comandos y de los controles del sistema Digital Vascular Imaging. 
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ESQUEMAS Y MODOS DE FUNCIONAMIENTO 
DEL SISTEMA DIGITAL VASCULAR IMAGING 


A laizquierda puede 
verse el esquema de 
bloques funcionales del 
aparato. En A, el serial 
imaging mode, en B el 


“| generador 
de rayos X 


señal vídeo 
del plumbicón 


interfaz les interfaz continuous imaging mode, 
EA picota A] en C el time interval 
Sid a difference mode (TID) y 
tiempo real convertidor en Del post processing 


analógico! algortmos 


mode, que puede 


digital intervenir sobre las 
imágenes procesadas 
, con uno de los | 
rafa de memoria algoritmos anteriores. 


POIDOSnO digital 


presentación 
tratada o replay 


fotocámara 
multiformato 


unidad 
cinta 


13-45 1155 mi41,5 50... 


imagen 
reprocesada 
a la pantalla 


anolocateter o 
cateterismo 
venoso 


TE EAT AE SALA 


— ¡- 
campo vídeo (A) 


algunos ¡ E 66 1 a: 6.6 al 
segundos ms ms 


reproceso 


convertidor 
analógico/ 
digital 


¡a 


JE 


selector 


inyector imágenes sustractivas a la memorización 


angiocateter o 
cateterismo venoso 


r - Je 


1.5 A» (8) 


Intervalo de y; 
datos de 3 imágenes LS 
la memoria 


H ! 
(30 imágenes 
fluoroscópicas | 1 7 de 
por segundo) 
imágenes TID A eel io as e Ea 
por reproceso 
y memorización 


memoria memoria 
digital digital 


rayos X 


unidad -* 
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algoritmos 
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La regla ORG (código mnemónico para ORIGI- 
NATE) permite definir una dirección inicial de 
memorización para un programa, un subprogra- 
ma o un conjunto de datos. La ORG debe ir se- 
guida de un operando, normalmente de tipo in- 
meciato. Por ejemplo, escribiendo 


ORG 100 
LD A,ALFA 


se consigue que la parte del programa a partir 
de LD A,ALFA se cargue en memoria a partir de 
la dirección 100 en adelante. 

Con el uso de la regla ORG se evita que el pro- 
grama principal, las subrutinas y las áreas de 
datos se superpongan en la memoria c vayan a 
superponerse en áreas de memorias utilizadas 
normalmente por el Sistema Operativo. En un 
programa Assembler pueden haber presentes 
más reglas ORG. 

La regla EQU (código mnemónico para EQUA- 
TE) permite definir el nombre de una variable y 
asignarle un valor numérico. Cada vez que en el 
programa se reclame la variable, ésta sustituirá 
la constante numérica asignada, 

En esta regla, e nombre de la variable normal- 
mente está colocado an el campo etiqueta de la 
instrucción, como muestra el siguiente ejemplo: 


COUNI Equ 1 
ALTA EQU 20 


LD A,ALFA 


Con la asignación ALFA EQU 20, la instrucción 
LD A,ALFA se hace equivalente en código má- 
quina a la LD A,20. 
Normalmente, las reclas EQU están posiciona- 
das al principio del programa, como documen- 
tación y para favorecer la legibilidad. 
La regla RES (código mnemónico para RESER- 
VE) reserva espacio FAM para las variables, y 
asigna un nombre a la primera dirección del 
área reservada. Por ejemplo, la regla 

BUFF RES 50 
crea un área de memoria de 50 posiciones y 
asigna a la primera de ellas el nombre BUFF. De 
este modo, el acceso al área de memoria reser- 
vada puede realizarse haciendo referencia al 
nombre BUFF. Por ejemplo, con la instrucción 


Una sala de máquinas de General Electric Co. 
LD A, BUFF + 10 


se carga en el registro A el contenido de la 
décima posición de memoria a partir de la 
posición de nombre simbólico BUFF, creada 
con la regla RES. 

Finalmente, la regla DATA permite que el pro- 
grama tenga acceso a tablas o constantes. 
Normalmente, los valores designados mediante 
una instrucción DATA permanecen en memoria, 
mientras que la instrucción RES (RESERVE) sólo 
reserva el espacio para las variables. 
Mediante la regla RES es posible reservar posi- 
ciones de memoria, para después llenarlas con 
los valores oportunos. 

Por tanto, puede escribirse 


BETA DATA 2 


y esto significa que la orimera celda de memoria 
libre se llamará de ahora en adelante BETA (di- 
rección) y contendrá el valor 2. Análogamente, 
la regla 


GAMMA DATA 3,4,5,6,7 


creará una tabla de cinco elementos, en la que 
el primer elemento tendrá la dirección GAMMA 
y contendrá el valor 3: en los siguientes estarán 
memorizados los otros valores (4, 5, 6, 7). 
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Ejemplo de programación 
en Assembler 


Como puede deducirse de lo dicho en los pá- 
rrafos anteriores, el lenguaje Assembler es sin 
duda el más complejo de los lenguajes simbóli- 
cos de alto nivel como el Basic; sin embargo, a 
pesar de la existencia de tantos lenguajes, toda- 
vía hoy resulta insustituible para resolver deter- 
minados problemas de programación. 

Su estrecha dependencia al funcionamiento real 
del microprocesador necesita, por parte del 
programador, una fase de análisis del problema 
mucho más sofisticada. Utilizando el lenguaje 
Assembler ya no es suficiente el desarrollo: del 
diagrama de flujo de un procedimiento para la 
obtención de una sucesión de operaciones 
complejas (entrada de datos, procesos con va- 
rias funciones, presentación de los resultados), 
sino que hay que descender al detalle de cómo 
se realiza cada operación sencilla en el interior 
de la máquina. 

En otras palabras, y para poner un ejemplo con- 


creto, un diagrama de flujo en base al cual es 
posible detallar un programa Basic no es sufi- 
ciente para permitir, en general, el detalle del 
mismo programa en Assembler, a menos que el 
programador tenga una gran experiencia, Es 
necesario que los bloques funcionales sencillos 
sean detallados posteriormente, hasta alcanzar 
una sucesión de operaciones que sean verda- 
deramente elementales (es decir explicitamente 
previstas) en el lenguaje Assembler. 

Es evidente que, como sucede para cada len- 
guaje de programación, la experiencia permitirá 
hacer hasta un cierto punto diagramas de flujo 
del máximo detalle; así, el programador podrá 
explicitar directamente en la fase de detalle un 
determinado bloque funcional. 

A título de ejemplo examinaremos ahora un sen- 
cillo ejemplo de programación en Assembler. El 
objeto será el de obtener una subrutina que rea- 
lice la búsqueda de un carácter en una tabla. 
El diagrama de flujo de la lógica de búsqueda 
se indica abajo y, como puede verse, es muy 
sencillo. 


DIAGRAMA DE FLUJO DE BUSQUEDA EN UNA TABLA 
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Supongamos ahora que hemos cargado un 
cierto número de caracteres en una serie de po- 
siciones de memorias contiguas (buffer), a partir 
de la dirección INI, y que se ha memorizado el 
carácter de control en la dirección CH. Sea ade- 
más NC el número de los caracteres de la tabla. 
Nuestro programa deberá utilizar dos registros. 
En el registro X memorizaremos el puntero en el 
interior del buffer correspondiente a la dirección 
INI. El primer carácter está en la posición INI, el 
segundo en la posición INI + 1 etc.; en general 
un carácter genérico se encuentra en la posi- 
ción INI + X, con X que va de O a NC-1. Durante 
el desarrollo del programa, el acumulador A 
contendrá el carácter de comparación y, al final, 
el puntero al elemento del buffer que satisface la 
igualdad. Examinaremos ahora la estructura del 
programa, recordando que los códigos mnemó- 
nicos de las instrucciones utilizadas dependen 
del microprocesador empleado. 

LDX + 0 Inicializa el registro X al va- 
lor O 

Toma de la posición CH el 
carácter de comparación y 
lo pone en el acumulador 
(CMP dirección, incremen- 
to). Es una forma particular 
específica sólo de algunos 
microprocesadores. El sig- 
nificado es: toma el conte- 
nido de la memoría apun- 
lada por dirección + incre- 
mento y compara el dato 
que encuentres con el 
contenido del acumulador. 
Si son iguales pon al valor 
1 el flag Z (ver gráfico de la 
pág. 944). En la forma indi- 
cada, la instrucción com- 
para el contenido de A con 
el de la memoria INI + X. 
En este punto del progra- 
ma X=0, por tanto se 
compara el contenido de 
la posición INI, o sea el pri- 
mer elemento del buffer. Si 
la comparación es positi- 
va, el flag Z se pone a 1. 
El código BEQ (branch if 
equal) activa un salto a la 
posición específica (de 
nombre HALLADO) - si 


LDA CH 


CMP INI, X 


BEQ HALLADO 


Z=1, de otra 
manera (no halla- 
do) se prosigue 
en secuencia 
Incrementa X pa- 
ra tomar otro ca- 
rácter del buffer 
Realiza la compa- 
ración ya descrita. 
antes 

BEQ HALLADO Salta a HALLADO 
siZ=1 
Deposita el con- 
tenido de X en la 
memoria SALVA. 
De este modo, el 
registro X puede | 


LOOP INX 


CMP INI,X 


STX SALVA 


utilizarse  provi- * 


sionalmente para 
otras finalidades; 
el contenido origi- 
nal se recupera 
cargando SALVA 
Compara X con la 
longitud del buf- 
fer: si son iguales 
pone Z =1 
Salta a NONT (no 
hallado) 
Recarga en X el 
valor que X tenía 
antes del test (es 
el puntero al últi- 
mo dato exami- 
nado) 

Salta a la posición 
LOOP, iniciando 
un nuevo ciclo de 
control 

Punto de entrada 
en el caso de ca- 
rácter hallado. El 
código NOP no 
tiene ningún efec- 
to; es uno de los 
modos de escribir 
un comentario. El 
registro X contie- 
ne la posición (a 
partir de 0) en 
que se encuentra 
el elemento del 
buffer de datos 


CPX NC 


BEQ NONT 


LDX SALVA 


JMP LOOP 


HALLADO NOP 
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ESQUEMA LOGICO DE LA INSTRUCCION CMP 


La instrucción (por ejemplo con código CD) 
se toma y descodifica INI = Inicio buffer datos Esta posición tiene dirección INI + 1 


A A A 


Memoria 


30 0A20m-0 


El contenido de 

la memoria de dirección 

IN +1 

se toma y compara 

(por ejemplo restándolo) 

con el contenido del acumulador 


Con A se indica 
el contenido del acumulador 


Durante el test se activan 
normalmente 3 flags N, Z y C, 
cada uno de los cuales indica uno 
de los tres posibles resultados 
(mayor, igual menor) 


igual al de control NONT NOP 
(no se consideran 
elementos suce- RTS 


No hallado (co- 
mentario) 
Retorno. Alma- 


TXA 
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sivos, incluso si 
satisfacen la igual- 
dad) 

El contenido de 
X se transfiere al 
acumulador. En 
la salida, A con- 
tiene la posición 
en que se en- 
cuentra el ele- 
mento del buffer 
igual al carácter 
de control 


cena el conteni- 
do del PC en la 
pila y lo incre- 
menta en 1; en 
otras palabras, 
predispone para 
realizar la ¡ns- 
trucción siguien- 
te a la llamada de 
subrutina (JSR o 
RJP según el mi- 
croprocesador uti- 
lizado). 


El Assembler del Rockwell 6502 


El microprocesador Rockwell 6502 ha tenido un 
gran éxito y en la actualidad existe, en varias 
versiones, en diferentes ordenadores persona- 
les. Es posible encontrarlo, por ejemplo, en las 
máquinas Commodore (VIC-20 y 64) y en el 
Apple ll. 

La disposición cualitativa de las patillas del mi- 
croprocesador puede verse en la figura de 
abajo, mientras que en la figura de la pág. 946 
puede verse la estructura interna y la configura- 
ción del registro de estado. 

En el 6502, además del acumulador, hay los re- 
gistros X, Y y S. Los registros X y Y se utilizan 
como Índices, mientras que el registro S se utili- 
za para controlar la pila. Esta contiene la direc- 
ción de la primera celda disponible de la pila, 
que en el 6502 va de la dirección física 256 a la 
dirección 511, comprendiendo así 255 bytes. 
El registro de estado, registro P, comprende los 
siguientes flags: 


N Bit del signo (1 si negativo) 

V Bit de desbordamiento (1 si desborda- 

miento) 

B Bit de interrupción software (puesto a 1 si 

pide interrupción) 

D Bit de uso del código BCD (puesto a 1 
cuando se usa la matemática BCD) 

| Bit de interrupción hardware (puesto a 1 
cuando se deshabilitan las interrupciones) 

Z Bit de cero (puesto a 1 si la última opera- 
ción ha dado resultado cero) 

Cc Bit de acarreo (puesto a 1 si hay una con- 
dición de acarreo; este flag se utiliza tam- 
bién en las instrucciones de desplaza- 
miento o rotación) 

En la tabla de la pág. 947 se han indicado los 

códigos mnemónicos de las instrucciones del | 

6502 comparadas con los códigos estándar se- 

gún la propuesta de la IEEE Task P694/011. 

Puede observarse que las instrucciones son es- 

pecializadas, o sea operan directamente sobre 

los registros presentes (A, X, Y, S). 


PATILLAS DEL MICROPROCESADOR ROCKWELL 6502 


00002. 0Na 


Líneas de dirección: 
Líneas de datos: 
Lineas de alimentación: 


Líneas de control. 
Señales de reloj 
Señales de reset 


Controla el flag 
de desbordamiento 


Señales de sincronismo 


Señales de 
lectura/escritura 


Líneas de interrupción 


Ao + Ass 

Do + D, 

Vss, Vcc, 
GND (+5 volt) 


Oo, 04, Oz 
RES 


so 
SYNC, RDY 


RIW 
IRQ, NMI 
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Unidad 
de control 


Registro de estado (registro P) 


El intrincado sistema de las conexiones externas de un ordenador. 
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INSTRUCCIONES ASSEMBLER DEL MICROPROCESADOR ROCKWELL 6502 


Código Código 
mnemónico [mnemónico 
IEEE 6502 


Código Código 
Instrucción mnemónico | mnemónico 
IEEE 6502 
Instrucciones 
aritméticas 


Add with carry 
Subtract with carry 
Incrernent 
Increment X 
Increment Y 
Decrement 
Decrement X 
Decrement Y 
Compare to A 
Compare to X 
Compare to Y 


Instrucciones 


Exclusive OR 

Shift Right 
Arithmetic Shift Left 
Rotate Right 

Rotate Left 

Test Bit 


Instrucciones de 
transferencia de datos 
Load A 

Load X 

Load Y 

Store A 

Store X 

Store Y 

Clear Carry 

Clear Decimal 
Clear Interrupt 
Clear Overflow 
Set Carry 


El Assembler del Zilog 280 


El Zilog 480 es uno de los más sofisticados mi- 
croprocesadores de 8 bits. Se desarrolló para 
ser compatible con el Intel 8080, pero con ca- 
racterísticas superiores. Actualmente se emplea 
en los microordenadores más potentes y con él 
se ha desarrollado el sistema operativo CP/M 
(Control Programming for Microcomputer). 

La disposición cualitativa de las patillas del mi- 
croprocesador se indica en el gráfico de la pá- 
gina 948, donde también se indican las misio- 


Instrucción 


Set Decimal 

Set Interrupt Mode 
Transfer A to X 
Transfer A to Y 
Transfer SP to X 
Transfer X to A 
Transfer X to SP 
Transfer Y to A 


Instrucciones de salto 
Branch if Zero 

Branch if Not Zero 
Branch if Negative 
Branch if Positive 
Branch if Carry 

Branch if No Carry 
Branch if Overflow Clear 
Branch if Overflow Set 
Jump 


Instrucciones de 
llamada a subrutina 


Jump to Subroutine 


Instrucciones de retorno 


Return from Subroutine 
Return from Interrupt 


Instrucciones varias 
No Operation 

Push A 

Push P (status) 

Pop A 

Pop P (status) 

Break 


nes de las líneas de conexión más importantes. 
La arquitectura interna del Zilog 280 está esque- 
matizada en la pág. 949, donde se indica tam- 
bién la estructura del registro de estado. 

Internamente, el microprocesador 780 es bas- 
tante complejo. Está compuesto por dos acu- 
muladores (A, A') y por dos pares de 6 registros 
(BC, DE, HL, B'C', D'E', H'L). Existen además 
dos registros índices (IX, |Y), una pila puntero 
(SP), un contador de programa (PO), el registro 
de instrucciones (IR) y dos registros especiali- 
zados | y R. El primero se utiliza con las instruc- 
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ciones, mientras que el segundo sirve para ges- 
tionar los «refrescos» de la memoria. 

En la unidad lógico-aritmética hay dos registros 
temporales: TMP y Acc. Temp. utilizados por el 
acumulador para realizar los cálculos. 

Los registros de estado son dos, idénticos, 
llamados F y F' y contienen los siguientes bits: 


S Bit del signo 

Z Bit de cero 

H Bit de medio acarreo (BCD) 

P/V Bit de paridad o desbordamiento (según 


el valor de los otros bits) 

N Bit de resta, usado por el sistema en las 
operaciones BCD 

C Bit de acarreo 


En la tabla de las págs. 949 y 950 se han indica- 
do los códigos mnemónicos de las instruccio- 
nes Zilog 280 comparados con los códigos es- 
tándar IEEE. Como puede verse, el conjunto de 
las instrucciones disponibles es muy amplio, y 
esto permite una notable flexibilidad en el em- 
pleo de este microprocesador. 


PATILLAS DEL MICROPROCESADOR Z 80 


00 JO 0 20QN 


DN 2 » +» » +» o -» lo. 
O 00 JO 0an»>»>0q0N“ e. O 
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Líneas de dirección: 
Líneas de datos: 
Líneas de alimentación: 
Líneas de control: 
Reloj de la CPU: 
Ciclo máquina de 
búsqueda: 
Indica que la CPU está 
accediendo a la memoria: 
Indica 
operación de 1/0 en uso: 
Indica que la CPU 
lee de la memoria: 
Indica que la CPU 
escribe en memoria: 


Señal de refresco 
de la memoria: 


Realizado un halt de 
la CPU: 


Petición de espera: 
Petición de interrupciones: 
Reset de la CPU: 

Líneas de control del bus: 


ARQUITECTURA INTERNA DEL MICROPROCESADOR ZILOG Z80 


Registros de estado (registros F y F”) 


INSTRUCCIONES ASSEMBLER DEL MICROPROCESADOR ZILOG Z80 


Instrucción 


Instrucciones 
aritméticas 

Add 

Add with carry 
Subtract 

Subtract with carry 
Increment 
Decrement 
Compare 


Código Código 
mnemónico | mnemónico 
IEEE Z80 


Código Código 
Instrucción mnemónico |mnemónico 
IEEE 280 


Compare with 
Increment 
Compare with 
Decrement 
Compare multiple 


Negative 
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Instrucción 


Instrucciones lógicas 


Exclusive OR 

NOT 

NOT carry 

Shift right 

Shift left 

Shift right arithmetic 
Rotate right 


Rotate left 


Rotate right 
through carry 
Rotate left 

Through carry 
Rotate right decimal 
Rotate left decimal 
Test bit 


Instrucciones de 
transferencia de datos 


Load 

Store 

Move 

Block load with 
increment 

Block load with 
decrement 

Move block 

Repeat block load with 
decrement 

Exchange 

Exchange alternate 
register 

Input ñ 
Input with increment 
Input with decrement 
Input block 

Block input with 
decrement 

Output 

Output with increment 
Output with decrement 
Outpunt block 

Block output with 
decrement 

Set bit 

Clear bit 

Set carry 

Set interrupt mode 
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Código Código 
mnemónico| mnemónico 
IEEE z80 


Instrucción 


Instrucciones de salto 


Branch 

Branch if zero 

Jump relative if zero 
Branch if not zero 
Jump relative if not zero 
Branch if carry 

Jump relative if carry 
Branch if not carry 
Jump relative if no carry 
Branch if positive 
Branch if negative 
Branch if parity even 
Branch if parity odd 
Decrement and branch 
if not zero 


Instrucciones de 
llamada a subrutinas 


Call 

Restart at address 
Call ¡f zero 

Call if not zero 
Call if carry 

Call ¡f not carry 
Call if positive 
Call if negative 
Call if parity even 
Call if parity odd 


Instrucciones 
de retorno 


Return 

Return if zero 
Return if not zero 
Return if carry 
Return if no carry 
Return if positive 
Return if negative 
Return if parity even 
Return if party odd 
Return from interrupt 
Return form interrupt 
Non-maskable 


Instrucciones varias 


No operation 
Push 

Pop 

Wait 

Adjust deminal 
Enable interrupt 
Disable interrupt 


Código Código 
mnemónico | mnemónico 
lEEE 280 


El lenguaje Cobol 


El procesador electrónico debe su nombre más 
común, ordenador o calculador, a la capacidad 
intrínseca de efectuar cálculos, y fue esencial- 
mente ésta la función que realizó en la primera 
lase de su evolución. Sin embargo, gracias a la 
enorme velocidad de funcionamiento, el calcu- 
lador podía ser de ayuda también en campos 
de aplicación diferentes al puramente matemáti- 
co. Por ejemplo, podía resolver problemas 
relacionados con la gestión rápida de las 
informaciones registradas en grandes archivos, 
en cuya consulta, un ser humano debería haber 
empleado años enteros. 

La exigencia de resolver rápidamente proble- 
mas específicos de un determinado ambiente 
por un lado, y la alta especialización necesaria 
para la utilización del calculador por el otro, hi- 
cieron surgir la necesidad de lenguajes de pro- 
gramación de nivel más elevado. Estos produc- 
tos debían cumplir tres condiciones: 


a Poner a disposición del personal no espe- 
cializado con el uso del calculador un len- 
guaje sintético y lo más cercano posible a 
la estructura del humano. La finalidad de 
esta función es la de permitir al usuario con- 
centrar su atención y sus esfuerzos a la bús- 
queda de las soluciones del problema exa- 
minado, de la misma forma en que un pintor 
utiliza sus colores sin conocer una sola fór- 
mula de química. 


m Estar estructurados de modo que traten 
de la forma más ágil el tipo de informa- 
ción propio de un cierto ambiente. Refi- 
riéndonos específicamente al ambiente co- 
mercial, es evidente que la persona encar- 
gada del cálculo de los sueldos de los em- 
pleados de una sociedad tiene necesidad 
de identificar de manera sencilla la fila de 
carácteres alfabéticos que constituyen el 
nombre del empleado, y efectuar sencillos 
cálculos con sólo las cuatro operaciones bá- 
sicas de la aritmética sobre denominaciones 
que componen los pagos. Es evidente que 
sería superfluo dotar de un lenguaje orienta- 
do a estos problemas comerciales con co- 
mandos para el cálculo de funciones de ma- 
temática superior. 


Ém Ser, en los límites de lo posible, indepen- 
diente de la máquina utilizada para la eje- 
cución del programa, de manera que el 
software pudiese «transportarse» con pe- 
queñas modificaciones de un calculador a 
otro. La transportabilidad del software, o sea 
la posibilidad de utilizar los mismos progra- 
mas en máquinas diferentes, constituye evi- 
dentemente una garantía en el tiempo para 
las inversiones del usuario. 


Persiguiendo estos objetivos, un grupo de fabri- 
cantes y usuarios de procesadores reunidos en 
la COnference of DAta SYstem | anguages (CO- 
DASYL) perfiló, en 1959, las especificaciones 
de estandarización del COBOL (COmmon Busi- 
ness Oriented Language), o sea de un lenguaje 
de programación estudiado para la solución de 
los problemas que se presentan habitualmente 
en las actividades comerciales. 

Considerando la amplitud del ambiente en que 
el Cobol está orientado, se comprende el motivo 
de su difusión y de su constante evolución co- 
mo respuesta natural a las exigencias de sofisti- 
cación, facilidad de aplicación y flexibilidad sen- 
tidas por el usuario. 

Por los citados motivos de difusión del lenguaje, 
y en consideración del tipo de aplicaciones in- 
volucradas, el texto que sigue se referirá al ANS 
COBOL (American National Standard COmmon 
Business Oriented Language); las limitaciones y 
la desuniformidad de este estándar se indicarán 
y comentarán ante las diferentes instrucciones 
interesadas. De acuerdo con la exigencia de 
proporcionar al programador un lenguaje de ti- 
po «humano» para enseñar a la máquina a re- 
solver un determinado problema, el elemento 
base del lenguaje Cobol es la palabra, análoga- 
mente a lo que sucede en cualquier idioma. En 
otros términos, el Cobol es un lenguaje de tipo 
discursivo más que de tipo simbólico, en el que 
se pueden mezclar, según precisas reglas sin- 
tácticas, palabras creadas por el programador 
y palabras, siempre autoexplicativas, propias 
del lenguaje. Por ejemplo, si se desea calcular 
la ganancia neta de una determinada operación 
comercial como diferencia entre el cobro y el 
importe bruto de la mercancía, es suficiente in- 
troducir la siguiente instrucción: 
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- 


y. Pickerell/Marka 


Y 


La sección de las unidades de memoria de disco en una sala de máquinas. 


SUBTRACT IMPORTE-BRUTO FROM COBRO 
GIVING GANANCIA-NETA 


donde IMPORTE-BRUTO, COBRO, GANAN- 
CIA-NETA son nombres asignados por el pro- 
gramador, mediante los cuales puede entender- 
se inmediatamente el significado lógico de la 
Operación a realizar. 

Este ejemplo da una idea de cómo el programa- 
dor puede llegar a instruir un calculador «ha- 
blando» un lenguaje que sea humanamente 
comprensible. 


Generalidades 


Antes de describir las características del Cobol 
y la sintaxis de las instrucciones, es importante 
ilustrar la secuencia de los pasos lógicos y ope- 
rativos que permiten obtener un programa Co- 
bol. Es importante recordar que un calculador 
es un instrumento como cualquier otro, del que 
el hombre dispone para su propio trabajo a 
su propia afición. Aunque inconscientemente, 
cada persona pasa siempre a través de varias 
fases ante un problema: 
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1 / Análisis del problema e identificación de 
la solución 
Supóngese que quieren unirse de forma sen 
cilla dos trozos de madera (problema). ¿Có- 
mo unirlos? ¿Con clavos, con tomillos o con 
cola? (análisis). En base a la función que de- 
be realizar la unión y por ejemplo para la 
construcción de un mueble, se decide adop- 
tar la cola (instrumento). 


2 / Preparación del material 
La cola debe aplicarse sobre los materiales 
a unir después de que se hayan preparado 
adecuadamente. 


3 / Uso del instrumento 

Cuando los materiales están preparados es 
posible hacer uso del instrumento elegido 
(en este caso la cola); terminada completa- 
mente su acción (según las especificaciones 
del fabricante) es posible tener el objeto ter- 
minado, respondiendo más o menos al 
proyecto inicial, y según la calidad de la eje- 
cución de cada uno de los pasos conside- 
rado anteriormente. 


Análogamente a lo que se ha descrito acerca 
del uso de la cola, el uso del calculador para la 
ejecución de un programa es el último de una 
serie de pasos que el programador debe reali- 
zar antes de obtener el resultado esperado. 
Abajo se han indicado todos los pasos necesa- 
rios para obtener un primer formato del progra- 
ma comprensible para el procesador. 

Todas las acciones esquematizadas se han 
efectuado fuera del procesador, El análisis del 
problema es una pura acción de pensamiento, 
mediante la cual, el analista proporciona al pro- 
gramador las directivas más eficaces para el 
lrazado de un programa que pueda producir los 
procesos deseados. 

La esquematización gráfica con la diagrama- 
ción de bloques del programa también es una 
actividad del pensamiento, con la cual el pro- 
gramador presenta de forma sistética los diver- 
sos pasos lógicos que constituirán el programa. 
Este paso, si bien no es indispensable para el 
planteo del programa, es muy aconsejable, 
puesto que trabajando sobre una imagen visual 
del flujo del proceso permite evitar o corregir rá- 
pidamente errores de implantación lógica. 
Para el planteo de los programas de flujo se utili- 
zan símbolos gráficos particulares, de los que 
se han representado algunos ejemplos en la ta- 
bla de la pág. 954, que amplían el conjunto de 
los símbolos gráficos ya ilustrados. 


El programa fuente 

Terminada la diagramación de bloques, el 
programador inicia el planteo detallado del 
programa, o sea la traducción de los diversos 
pasos de proceso del diagrama en una serie de 
instrucciones (que respetan el formato previsto 
por el lenguaje elegido) escritas sobre adecua- 
dos módulos que reciben el nombre de hojas 
de programación. 

El detalle de las instrucciones según las normas 
que se describirán más adelante sólo es el pri- 
mer paso de una secuencia de operaciones 
que debe aplicarse al programa antes de que 
pueda ser realizado por el calculador. 

Al final del detalle, el programa se escribe en 
lenguaje simbólico sobre hojas normales de pa- 
pel, que no pueden constiluir una entrada válida 
para el calculador. Es necesario codificar las 
instrucciones indicadas sobre las hojas de pro- 
gramación en un primer formato, inteligible para 
la máquina, sobre un soporte adecuado: la ficha 
perforada. 

Como puede verse en la pág. 954, una ficha 
está constituida por un cartón normal que pue- 
de albergar hasta 80 caracteres consecutivos. 

La codificación de las instrucciones la realiza 
una máquina perforadora, a menudo no conec- 
tada al procesador, Cada perforadora está do- 
tada de un teclado similar al de una máquina de 
escribir sobre la que se teclean, carácter por ca- 


OPERACIONES FUERA DE LINEA PARA LA PREPARACION 
DE UN PROGRAMA 


Hojas de programación 


(Programa fuente) 
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SIMBOLOGIA COBOL DE LOS DIAGRAMAS DE FLUJO 
SIMBOLO SIGNIFICADO File residerte en disco 
Fase inicial o final de 


un programa A 


Grupo de instrucciones File residente en cinta 
utilizadas para la realización magnética 

de un mismo paso lógico 

(procedimiento) 


Decisión. Identifica un punto , z 
del programa en que pueden File de impresión 
emprenderse dos acciones 

diferentes según se produzca 

un determinado suceso 


Operación de lectura a 
escritura en un file 
(en particular funciones 1/0; 


Vídeo con teclado (consola) 


Ficha perforada 


Z File de fichas perforadas 
Operación fuera de línea 
realizada a velocidad humana 
sin ayuda de máquinas 


EJEMPLO DE FICHA PERFORADA 


( 0000 00000 
Y 419 40 


11111111 


2222222 


a 4 1a211:12211 3333173 : 3 3333333 133333 
3 1, 3333333 3331333 1333333 333533 333 1333333333 


4444 444a944 44 
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rácter, las instrucciones Cobol indicadas sobre 
la hoja de programación. Cada carácter teclea- 
do no se reproduce simplemente sobre la parte 
alta de la ficha, sino que está codificado con 
una combinación adecuada de orificios rectan- 
gulares dispuestos a lo largo de una columna. 
En la tabla de abajo se ha indicado la corres- 
pondencia entre los caracteres (alfabéticos, nu- 
méricos y especiales) y su código sobre la ficha 
perforada según un código muy difundido (la 
notación 6-8 está para indicar que el carácter 
está codificado con dos orificios dispuestos so- 
bre la sexta y octava línea de la ficha). La nume- 
ración de las líneas de una ficha, partiendo des- 
de arriba, es la siguiente: 12, 11, O, 1, 2,3, 4, 5, 
6, 7, 8, 9. 

El paquete de fichas que se obtiene al final de la 
fase de digitación contiene el programa fuente, 
que sobre este soporte constituye una entrada 
válida para el procesador. Mediante una ade- 
cuada unidad periférica (lector de fichas), el 
calculador puede interpretar correctamente to- 
dos los caracteres simbólicos contenidos en las 
fichas. 

A efectos lógicos, las dos operaciones son 
completamente equivalentes, por lo que en 
las figuras que siguen se indicarán con el 
símbolo del file todas aquellas entradas que 
pueden ser asimiladas por un conjunto de fi- 
chas perforadas. En otras palabras, programas 
fuente e informaciones simbólicas con un máxi- 
mo de 80 columnas, tanto si residen en disco o 
se teclean directamente en consola, se indica- 
rán con dicho símbolo. Todas las fases escritas 
hasta ahora permiten pasar de la búsqueda de 


la solución de un problema a la escritura de un 
programa que permita su aplicación, desde el 
detalle de las instrucciones a la introducción de 
las mismas en el calculador. Las instrucciones 
del programa, en este punto, todavía están ex- 
presadas en forma simbólica, es decir, en la for- 
ma prevista por la sintaxis del lenguaje. En otras 
palabras, si el programador ha detallado la ins- 
trucción 


MOVE A TOB 


existirá en la máquina una combinación de ca- 
racteres idénticos a la introducida. 

Como el calculador no puede comprender el 
significado de la frase MOVE A TO B es necesa- 
rio someter el programa a otras dos operacio- 
nes sucesivas. 

Estas operaciones tendrán la finalidad de tradu- 
cir la palabra MOVE, en el caso del ejemplo, en 
una serie de instrucciones escritas en el len- 
guaje (binario) propio de la máquina, para que 
el calculador pueda interpretarlas y realizarlas 
correctamente, con el fin de obtener la transfe- 
rencia (MOVE) pedida por el comando. 

Las operaciones indicadas son la compilación 
y el encadenado (linking), y deben realizarse en 
el orden indicado. 


Compilación y encadenado 


Un Compilador, cualquiera que sea el lenguaje 
de programación usado, es un programa de sis- 
tema que puede interpretar los comandos sim- 
bólicos contenidos en el programa fuente y pro- 
ducir una serie de comandos en el lenguaje pro- 


Simbolo Código | Símbolo Código 
A 12-1 P 11-7 0 
B 12-2 Q 11-8 y 
Cc 12-3 R 11-9 2 
D 12-4 S 0-2 3 
E 12-5 T 0-3 4 
E 12-6 UÚ 0-4 5 
G 12-7 V 0-5 6 
H 12-8 W 0-6 7 
| 12-9 Xx 0-7 8 
J 11-1 Y 0-8 9 
K 11-2 Z 0-9 
E A 
M 
N 
0) 


CODIGO DE PERFORACION 026 


Símbolo Código |Símbolo Código | Símbolo Código 


Espacio 


VCOJDANÍONO 
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pio de la máquina usada, que constituyen el 
programa reubicable. Del Compilador ya se ha 
hablado en la exposición del lenguaje Basic. 
Las acciones a realizar para compilar un pro- 
grama son análogas para todos los tipos de cal- 
culador, y se activan mediante sencillos coman- 
dos directos al Sistema Operativo, contenidos 
en un cierto número de fichas de control. 
Estas fichas, cuyo formato y número varían se- 
gún el calculador usado, tienen esencialmente 
tres funciones: 


m Comunicar al sistema cuá! es el Compilador 
que debe cargarse en memoria (Cobol, For- 
tran, Basic,...). 

m Provocar la carga en memoria del Compila- 
dor deseado, haciendo intervenir un progra- 
ma llamado Loader (cargador) 

m Comunicar al Compilador el nombre del pro- 
grama fuente y el nombre del file (en el caso 
del Cobol en disco) en que debe contenerse 
el producto de la compilación (programa 
reubicable) : 


La situación se indica esquemáticamente en la 
figura de abajo. 
Al tratar las funciones del Compilador se ha di- 


cho que éste procede a traducir las diversas 
instrucciones simbólicas en lenguaje máquina. 
La traducción se realiza utilizando sus rutinas 
residentes en una librería de sistema. Piénsese 
por ejemplo en las funciones de lectura y escri- 
tura en file: estas funciones van precedidas de 
las rutinas de l/O (Input/Output) genéricas que 
sólo se aplican a continuación al programa es- 
pecífico. En otras palabras, el Compilador, du- 
rante su acción, procede a crear los puntos de 
ataque de todas las subrutinas llamadas por las 
instrucciones del programa, registrando en es- 
tos puntos Una serie de informaciones útiles pa- 
ra la siguiente operación de encadenado. 
Además, en esta fase, de todos los datos defini- 
dos por el programador se anotan solamente 
las direcciones provisionales correspondientes 
al mapa general de la memoria. Estas direccio- 
nes (reubicables) varían en el momento en que 
cada subrutina se carga realmente en memoria 
y se ensambla, para direccionar correctamente 
los datos que el programa debe procesar. 

El Compilador trata del modo descrito tanto las 
subrutinas de sistema como las escritas por el 
programador y residentes en otras librerías, 
para que puedan proporcionar el nombre me- 
diante las adecuadas fichas de control. 


ESQUEMA DE PRINCIPIO PARA LA COMPILACION DE UN PROGRAMA 
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'rograma 
reubicable 


Linker 


subrutinas 
sistema 


Al final de la fase de compilación, el programa 
objeto reside en disco y es necesario conectarle 
todas las subrutinas que necesita. 

Según el esquema de la figura de arriba, estas 
funciones las proporciona el Linker (encadena- 
dor). Este programa, así como el residente en la 
librería del sistema, tiene la misión de resolver 
todos los encadenados entre los diversos mó- 
dulos reubicables. 

El producto proporcionado a la salida de la fase 
de enlace es un programa absoluto, puesto 
que está completo en cada una de sus partes, 
En la figura de la pág. 958 se ha indicado una 
esquematización del proceso completo. 

Aparte del tratamiento realizado hasta ahora so- 
bre las operaciones a que debe someterse un 
programa para poderlo hacer ejecutable, es ne- 
cesario indicar la siguiente precisión. 
Haciendo referencia a lenguajes fuertemente 
estandarizados como el Cobol, si el programa 
fuente puede adaptarse (salvo pequeñas limita- 
ciones) a cada procesador, el Compilador Co- 
bol es del todo diferente de una máquina a otra, 
ya que cada calculador está construido según 
criterios tecnológicos diferentes. Es en este 
caso que se aprecia la estandarización del 
lenguaje, que permite transportar los programas 
de una máquina a otra compilándolos en el 
procesador destinado a ejecutarlos. 


ENLACE DE UN PROGRAMA OBJETO 


Después de haber descrito todos los pasos que 
constituyen la realización de un programa, vol- 
veremos ahora a analizar la fase de detalle de 
las instrucciones. 


La hoja de programación Cobol y las 
reglas de detalle 


Una hoja de programación es un módulo sobre 
el cual el programador escribe las instrucciones 
del programa; tiene la función de facilitar el tra- 
bajo de detallado, y se ha proyectado para al- 
bergar instrucciones escritas según el estándar 
de un determinado lenguaje. 

La hoja de programación Cobol está estructura- 
da en diferentes zonas, destinadas a contener 
informaciones de diferente naturaleza y signifi- 
cado. 

Su uso no es estrictamente indispensable a los 
fines del correcto planteo de un programa, pero 
siempre es aconsejable, puesto que en ella se 
indican claramente algunas de las convencio- 
nes típicas del Cobol que hacen más rápido el 
detallado. Además, en el caso de que el progra- 
ma deba perforarse sobre fichas, la utilización 
de la hoja de programación tiene la ventaja de 
hacer más rápido el trabajo de la pertoración, 
asegurando entre amplios márgenes la corres- 
pondencia real entre el programa escrito y su 
codificación en fichas. 
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ESQUEMA DEL PROCESO DE COMPILACION Y ENLACE 


Programa Programa Programa 
fuente reubicable absoluto 


Descripción 
de datos 


Subrutina 
de 
sistema 


Subrutina 
de 
sistema 


Subrutina 
de 
sistema 


Subrutina del 
programador 


Instrucción simbólica 


Punto de ataque de las rutinas de sistema 
equivalentes a la instrucción simbólica 


Llamada de una rutina del programador 
Punto de ataque de la rutina del programador 
Direcciones reubicables de los datos 


Direcciones absolutas de los datos 


Areas de comunicación de las subrutinas 
Enlaces resueltos por el LINKER 


¿ONO O el 
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En la pág. 959 se ha representado la hoja de 
programación. Observando la figura puede ver- 
se cómo el módulo está compuesto por dos par- 
tes principales. En la parte superior se indican 
algunas informaciones útiles para la documen- 
tación, mientras que la segunda parte se desti- 
na a contener palabras e instrucciones que for- 
man parte del programa. Más exactamente, a 
cada línea corresponderá una ficha. Las colum- 
nas numeradas del módulo son sólo 72, mien- 
tras se ha dicho que las columnas disponibles 
en una ficha son 80. Efectivamente, el Compila- 
dor Cobol sólo considera que forman parte del 
programa los caracteres perforados de la co- 
lumna 7 a la columna 72. 

Es posible contraseñar cada ficha perforada de 
manera que se sepa con certeza a qué progra- 
ma pertenece y en qué posición debe encon- 
trarse en el interior del paquete de fichas (deck). 
A tal efecto se han reservado las columnas 1 a 
la 6 y las 37 a la 80. 

Las columnas 1 a 6 pueden contener un número 
compuesto de la siguiente manera: las primeras 
tres cifras identifican el número de hoja de pro- 
gramación, mientras que las otras tres cifras, el 
número de la línea en el interior de aquella hoja. 
Con esto se consigue que el número completo 
perforado en las primeras 6 columnas de cada 
ficha identifique unívocamente la ficha en el in- 
terior del programa, El nombre del programa a 
que pertenece cada ficha puede perforarse en 
las columnas 73 a 80, Tanto el número progresi- 
vo de la hoja (columnas 1 a 3) como el nombre 
del programa se indican en la parte superior del 
módulo, mientras que el número de secuencia 
de las filas debe ser necesariamente perforado 
sobre la fila correspondiente (columnas 4 a 6) 
de la parte inferior. La numeración de las fichas 
según las convenciones escritas no es obligato- 
ria, pero con cualquiera que se emplee, si las 
fichas no están en la secuencia correcta, e 
Compilador Cobol señalará el error. 

Las columnas de la parte inferior de la hoja de 
programación, a excepción de las 4 a 6 de la 
que ya se ha descrito su uso, están vinculadas a 
reglas bien precisas de utilización. 


En esta columna sólo es 
posible perforar algunos 
símbolos particulares. Un 
trazo de unión (—) informa 
al Compilador Cobol que 
el primer carácter de la fila 


Columna 7 
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correspondiente es la con- 
tinuación de la última pala- 
bra de la fila anterior, mien- 
tras que un asterisco («) 
permite al programador 
utilizar la fila para insertar 
en la lista del programa un 
comentario. 

Identifica un espacio de la 
letra A que corresponde a 
la columna 8; esta zona 
también se llama área A y 
se reserva a la perforación 
de los nombres de Divisio- 
nes, Secciones y Párrafos 
(son parte de un programa 
Cobol). 

Delimitada por una línea 
más marcada e indicada 
con la letra B que corres- 
ponde a la columna 12, es- 
ta zona se reserva a las 
perforaciones de las ins- 
trucciones del programa. 
Si el programador tiene 
necesidad de insertar una 
o más filas entre las ya 
escritas, puede evitar rees- 
cribir todo el módulo utili- 
zando las filas no numera- 
das y adoptando una nu- 
meración adecuada. 


Columnas 8 a 11 


Columnas 12 a 72 


En la página siguiente se ha representado un 
ejemplo en el que se aplican todas las reglas de 
detallado examinadas hasta ahora, en particular 
el uso de la columna 7 y la inserción de otras 
filas utilizando la zona no numerada de la hoja. 
El ejemplo indicado sólo tiene finalidad educati- 
va y resultará más claro después de la exposi- 
ción de la sintaxis del lenguaje Cobol. 


Estructura de un programa 
Cobol 


Cada programa Cobol está estructurado en divi- 
siones (DIVISION), secciones (SECTION), pa- 
rrafos y períodos, organizados jerárquicamente 
según el esquema de la figura de la pág. 962. 
Es decir, cada división está compuesta por va- 
rias secciones, cada sección por varios párrafos 
y cada párrafo por uno o más períodos. 
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Un período es un conjunto de instrucciones (en 
el límite una sola) que termina con un punto. 
Por ejemplo, el siguiente conjunto de instruccio- 
nes es un período: 


MOVE A TO B 
MOVECTOD 
COMPUTE E = B-C. 


Un párrafo está constituido por varios períodos 
y se identifica con un nombre elegido por el pro- 
gramador. El nombre puede contener un máxi- 
mo de 30 caracteres, elegidos entre las letras 
del alfabeto inglés, los números de O a 9 el signo 
(—), utilizado con funciones de trazo de unión. 
El nombre del párrafo debe perforarse a partir 
de la columna 8 y debe cerrarse con un punto. 
El siguiente es un párrafo: 


CALCULA-ITE. 
COMPUTE ITE = IMPORTE x= 5/100. 


Un párrafo se extiende desde el nombre hasta 
el principio de otro párrafo. 

Varios párrafos componen una sección. Cada 
sección se identifica con un nombre que está 
sujeto a las mismas reglas del nombre del pá- 
rrafo. Lo que permite al Compilador distinguir 
las dos entidades es la palabra SECTION; si se 
desea agrupar una serie de instrucciones como 
sección, la palabra SECTION debe seguir al 
nombre que se quiere dar a la sección. Por 
ejemplo, la secuencia de fichas 


CALCULA-ITE SECTION. 
CALCULA. 
COMPUTE ITE = IMPORTE + 5/100. 


define la sección CALCULA-ITE, Cada sección 
debe empezar con un nombre de párrafo y ter- 
mina con el principio de otra SECTION, 

Es interesante precisar que, a menos que sean 
comandos de salto explícitos previstos por el 
programador, el final de un párrafo o de una 
sección no implica la interrupción del flujo del 
proceso en aquel punto. La finalidad de la sub- 
división del programa Cobol en secciones y pá- 
rrafos se aclarará más adelante. Mientras que la 
citada subdivisión en secciones y párrafos es a 
discrección del programador, la DIVISION es 
una entidad obligatoria del programa Cobol. 
Un programa Cobol está constituido siempre 


por cuatro divisiones dispuestas en secuencia. 
Esta secuencia, absolutamente inalterable por 
parte del programador, permite al Compilador 
adquirir en sucesión lógica todas las informacio- 
nes necesarias para la ejecución de los coman- 
dos contenidos en el programa. 

Estas divisiones, indicadas en la secuencia pe- 
dida por el Compilador, se describen a conti- 
nuación. 


IDENTIFICATION DIVISION. Esta división, de 
estructura muy sencilla, declara al Compilador 
el nombre del programa y permite insertar infor- 
maciones facultativas de documentación. 


ENVIRONMENT DIVISION. Mediante esta divi- 
sión se declara al Compilador el ambiente en 
que el programa deberá trabajar, describiendo * 
las relaciones que hay entre algunos compo- 
nentes hardware y software del sistema. La divi- 
sión se compone de dos secciones. La primera, 
CONFIGURATION SECTION, describe el tipo y 
el modelo del ordenador con que se ha compi- 
lado el programa, así como el tipo y el modelo 
de máquina que lo realizará. La segunda, 
INPUT-OUTPUT SECTION, declara el nombre 
de los files utilizados por el programa y los so- 
portes físicos en los que residen o residirán. 


DATA DIVISION. La función de la DATA DIVI- 
SION es esencialmente la de reservar para el 
programa áreas de memoria principal oportuna- 
mente dimensionadas, y asociar a cada una de 
éstas, de manera unívoca, los nombres mnemó- 
nicos creados por el programador y utilizados 
en el curso de dicho programa. 

Es posible subdividir a grandes rasgos las 
áreas de memoria reservadas en la DATA DIVI- 
SION en tres categorías. 


"m Una primera categoría de posiciones de me- 
moria es la que el Compilador reserva para 
las operaciones de lectura y/o escritura en 
los files. La definición de estas áreas se reali- 
za con la primera sección de la DATA DIVI- 
SIÓN, o sea la FILE SECTION (sección file). 

"En cambio, a la segunda categoría pertene- 
cen las áreas de memoria que el programa- 
dor se reserva en función de las exigencias 
que la lógica del programa impone y sobre 
las que se tiene una gestión completa. Las 
definiciones de estas posiciones de memo- 
ria se agrupan en la WORKING-STORAGE 
SECTION (sección área de trabajo). 
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m Latercera categoría de áreas en la memoria 
central es la de las posiciones reservadas a 
los intercambios de informaciones entre el 
programa principal y las subrutinas exterio- 
res. El nombre de la sección en que se de- 
finen las áreas de esta última categoría 
es, significativamente, LINKAGE SECTION 
(sección de encadenado). Es superfluo ob- 
servar que la presencia de la LINKAGE SEC- 
TION se pide únicamente en el caso en que 
el programa haga referencia a otros progra- 
mas externos. En definitiva, la estructura 
completa de la DATA DIVISION es la que se 
indica a continuación: 


DATA DIVISION. 
FILE SECTION. 
Descripción de los files 
WORKING-STORAGE SECTION. 
Descripción de los datos independientes 
LINKAGE SECTION, 
Descripción de los datos de intercambio 
con rutinas externas. 


PROCEDURE DIVISION. En la PROCEDURE 
DIVISION hay todas las instrucciones Cobol en 
las que el programador ha traducido el flujo lógi- 
co de las operaciones a efectuar sobre los da- 
tos. Esta división consiste en un conjunto de pá- 
rrafos y secciones. 

La descripción sumaria de un programa Cobol, 
de sus partes consliluyentes y de las funciones 
que cada una de éstas debe asumir, ha propor- 
cionado una idea aproximada de las peculia- 
ridades de este lenguaje. Ahora es necesario 
entrar en el detalle de cada división para com- 
prender completamente su organización, la co- 


rrecta sintaxis y las reglas de detalle a respetar. 
En el curso de la exposición se utilizarán las 
convenciones de la tabla al pie de esta página. 


IDENTIFICATION DIVISION 

La IDENTIFICATION DIVISION es la única divi- 
sión compuesta sólo por párrafos. 

El nombre de la división, como el de todos los 
párrafos componentes, debe perforarse a partir 
de la columna 8 (AREA A). 

El formato completo de la IDENTIFICATION DI- 
VISION se indica en la siguiente tabla. 


FORMATO DE LA IDENTIFICATION 
DIVISION 


IDENTIFICATION DIVISION. 
PROGRAM-ID, nombre-programa. 


[AUTHOR. nombre-autor.] 
[INSTALLATION. nombre-instalación.] 
[DATE-WRITTEN. fecha-de-escritura.] 
[DATE-COMPILED. fecha-de-compilación.] 
[SECURITY. tipo-de-seguridad.] 
[REMARKS. comentarios.] 


De acuerdo con las convenciones adoptadas 
puede observarse que el único párrafo obligato- 
rio de esta división es el PROGRAM-ID (pro- 
gram identification), mientras que todos los de- 
más son opcionales y sólo tienen funciones de 
documentación. 

Además debe tenerse presente que, si los hay, 
estos párrafos deben respetar el orden indica- 


CONVENCIONES ADOPTADAS EN LA EXPOSICION 


Símbolo Convención 

Identifica una entidad obligatoria en una instrucción 
Encierran una entidad, una cláusula o una serie de cláusulas 
adjuntables y opcionales en el formato de una instrucción 
Encierran una serie de entidades alternativas entre sí; el 
programador sólo puede utilizar una 

Todos los nombres reservados del Cobol están descritos en 
caracteres mayúsculos 

Se escriben con caracteres minúsculos todos los campos o 
entidades a los que el programador es libre de dar el nombre o 
el formato que considere más oportuno 

Indican que la cláusula o la entidad inmediatamente anterior 
puede estar presente más veces en la misma instrucción 


Subrayado 
Paréntesis cuadrado 


Corchete 


Caracteres mayúsculos 


Caracteres minúsculos 


Puntos 
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do. El párrafo REMARKS (comentarios) permite 
insertar un comentario bastante largo, que se 
considera cerrado por el primer punto que en- 
cuentra el Compilador. 

Un ejemplo de IDENTIFICATION DIVISION 
completa es la siguiente: 


IDENTIFICATION DIVISION. 

PROGRAM-ID. EJEMPLO-ID, 

AUTHOR. JUAN-PEREZ-MADRID. 

INSTALLATION. BARCELONA. 

DATE-WRITTEN. JUNIO 84, 

DATE-COMPILED. 10/06/84. 

SECURITY. NINGUNA. 

REMARKS. ESTE ES UN EJEMPLO SOBRE EL 
FORMATO COMPLETO DE LA 
IDENTIFICATION DIVISION DE UN 
PROGRAMA COBOL. 


ENVIRONMENT DIVISION 


En la descripción de los motivos que han con- 
ducido a la normalización de algunos lenguajes, 
en particular el Cobol, se ha insistido en la trans- 
portabilidad del software, o sea en la posibilidad 
de ejecutar un mismo programa sobre procesa- 
dores diferentes. Esta transportabilidad, salvo 
raras excepciones, nunca es total. Efectivamen- 
te, la normalización puede ajustar la sintaxis y la 
estructura de las instrucciones de manera que 
resulten independientes del tipo de máquina uti- 
lizada, pero no puede imponer notaciones que 
obliguen a los fabricantes a modificar la propia 
filosofía de los sistemas operativos. 

En otras palabras, como el programa debe inte- 
raccionar con el sistema, debe declarar el nom- 
bre cel soporte lógico que contiene los datos 
(file) y el del tipo de unidad física en que reside 
(disco, cinta, lector de fichas, etc). 

Si se quieren utilizar dos máquinas gobernadas 
por sistemas operativos diferentes para realizar 
el mismo programa, será necesario no sólo re- 
compilar el programa, sino alterar también la 
parte que identifica el tipo de ambiente huésped 
del programa, o sea la ENVIRONMENT! DIVI- 
SION. A continuación se analizarán los diversos 
párrafos y secciones de esta división, dejando 
al lector la misión de proporcionar al programa 
los debidos parámetros de acuerdo con las es- 
pecificaciones descritas en los manuales pro- 
porcionados por el fabricante del calculador uti- 
lizado en cada caso. 

La secuencia de secciones y párrafos que com- 
ponen la división es la siguiente: 


9re-oraenado!l 


Dre-oraenado! 


Obsérvese que la ENVIRONMENT DIVISION 
debe estar presente en cada programa, y que 
los nombres de secciones y párrafos deben 
perforarse a partir de la columna 8, mientras 
que las informaciones asociadas deben empe- 
zar en la columna 12 o más adelante. 


CONFIGURATION SECTION 


El nombre de esta sección es extremadamente 
autoexplicativo; su función es la de identificar 
tanto el sistema operativo que compilará el pro- 
grama (SOURCE-COMPUTER), como el que lo 
realizará (OBJECT-COMPUTER). 

El nombre del ordenador que aparece en estos 
dos párrafos debe proporcionarse de acuerdo 
con las indicaciones del fabricante. 


El párrafo SPECIAL-NAMES. Este párrafo, op- 
cional, es de notable utilidad en las aplicaciones 
más típicas del Cobol. 

Al estar orientado a problemáticas de tipo co- 
mercial, el Cobol permite imprimir un número 
colocándole automáticamente al lado el símbolo 
del dólar $. 

El tema volverá a tratarse más adelante; por 
ahora es importante ¡lustrar el modo en que el 
Compilador Cobol puede tratar de forma análo- 
ga el símbolo de la moneda de otros países y 
tener así las anotaciones correctas. 

La modificación es muy sencilla y se declara al 
Compilador en el párrafo SPECIAL-NAMES, en 
que se indica el carácter que debe sustituir el $ 
como símbolo de moneda. 

Supóngase que debe tratarse con francos fran- 
ceses, cuyo símbolo esF; el formato del párrafo 
es el siguiente: 
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SPECIAL-NAMES. 
CURRENCY SIGN IS 'F, 


Debe observarse que el nuevo signo de mone- 
da no debe ser ninguno de los siguientes: 

— números de O a 9 

— caracteres alfabéticos ABCDLPRSVXZ 
— caracteres especiales + +-,.;¡()“/= 
Porque el Cobol, como otros lenguajes de pro- 
gramación, fue realizado por primera vez en 
EE.UU., y es natural que prevea una representa- 
ción de los números decimales según la con- 
vención utilizada en aquel país. Debe observar- 
se que esta convención prevé el uso del punto 
(.) como separador entre cifras enteras y cifras 
decimales, mientras que un número entero se 
divide en grupos de tres cifras (centenas, milla- 
res, etc.) adoptando la coma. 

En otras palabras, el número 4.725,8 (según la 
notación europea), en la convención norteameri- 
cana se escribe de la forma 


4,725.8 


Para permitir una representación de los núme- 
ros en impresión según la notación europea es 
suficiente insertar en el párrafo SPECIAL- 
NAMES la siguiente información: 


DECIMAL POINT IS COMMA 


que literalmente significa «el punto decimal es la 
coma». Las convenciones adoptadas en el pá- 
rrafo SPECIAL-NAMES valen para todo el pro- 
grama y no es posible alteraras, 


El párrafo FILE-CONTROL. Mediante este pá- 
rrafo, el programador declara al Compilador el 
nombre de los diversos files usados por el pro- 
grama, así como el soporte físico en que resi- 
den dichos files. 

Supóngase, por ejemplo, que debe utilizarse un 
file que contiene datos personales residentes en 
disco y catalogados en el sistema con el nom- 
bre LISTIN. Si el programador ha establecido 
utilizar para este file en el interior del programa 
el nombre FILE-LIS, es necesario asociar al 
nombre «interno» FILE-LIS el «nombre exter- 
no LISTIN, para que el sistema pueda indicar 
los datos a tratar en la fase de ejecución. Esta 
asociación se crea en el párrafo FILE- 
CONTROL con la siguiente notación: 


SELECT FILE-LIS 
ASSIGN TO DISC LISIIN, 


En general, la cláusula SELECT, que debe ser 
única para cada file tratado, tiene el formato in- 
dicado en la tabla de abajo. 

También, para la información del nombre hard- 
ware de un file debe atenderse a las indicacio- 
nes del fabricante del sistema, por lo que el 
ejemplo anteriormente indicado, válido para al- 
gunos sistemas, puede no serlo para otros. Sin 
embargo, estas diferencias corresponden sólo 
a la formación del nombre-hardware. 

La palabra OPTIONAL que aparece en el forma- 
to general de la SELECT declara al Compilador 
que el file correspondiente también puede faltar 
en la fase de ejecución. 

Es interesante precisar que la ausencia del file 
en el momento de la ejecución del programa no 


FORMATO DE LA CLAUSULA SELECT 


SELECT [OPTIONAL] nombre-interior-lile ASSIGN TO nombre-hardware 


nombre-interior-file es el nombre con que se llama el file en el interior del programa 


nombre-hardware 


identifica el nombre con que el sistema conoce el file y el soporte 


hardware en el que reside este file. 


Los soportes hardware pueden ser 


CARD - READER = lector de fichas 
CARD - PUNCH = perforador de fichas 


PRINTER 
TAPE 
DISC o DISK 
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= impresora 
= cinta magnética 
= disco 


FLUJO DE LOS DATOS 


S——E——E 


significa que el file no esté físicamente en el so- 
porte hardware declarado, sino sólo que no se 
ha asignado al programa, 

Esta asignación debe realizarse externamente 
al programa mediante comandos de control 
propios del sistema operativo utilizado. 

Para aclarar las ideas considérese el caso de un 
programa que deba usar el file del ejemplo an- 
terior y deba imprimir su contenido en papel. El 
diagrama de flujo correspondiente puede es- 
quematizarse como en el gráfico de arriba. 


La INPUT-OUTPUT SECTION del programa de- 
be contener la selección de los files correspon- 
dientes junto con los respectivos nombres inter- 
nos, o sea 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT FILE-LIS. 
ASSIGN TO DISC LISTIN. 
SELECT IMPRESION ASSIGN TO PRIN- 
TER. 


En la fase de ejecución es necesario comunicar 
al sistema que el programa utilizará el file LIS- 
TIN, mientras que no es necesario asignar la im- 
presora, puesto que ésta siempre está disponi- 
ble porque está gestionada por el sistema. 
Aparte de que los comandos para tales opera- 
ciones varían en función del sistema operativo, 
su secuencia puede sintetizarse como sigue: 


1.* ficha: 
comando-de-asignación-file LISTIN. 
2? ficha: 


comando-de-ejecución-programa 
nombre-programa. 


DATA DIVISION 


Como ya se ha dicho, la función de la DATA 
DIVISION es la de reservar al programa áreas 
de memoria principales oportunamente dimen- 
sionadas y asociar a cada una de ellas, de ma- 
nera unívoca, los nombres mnemónicos crea- 
dos por el programador y utilizados en el curso 
de dicho programa. Una primera categoría de 
posiciones de memoria es la que el Compilador 
reserva para las operaciones de lectura y/o es- 
critura en los files. La definición de estas áreas 
se efectúa en la primera sección de la DATA 
DIVISION, la FILE SECTION. En cambio, a la 
segunda categoría pertenecen las áreas de me- 
moría que el programador se reserva en función 
de las exigencias que la lógica del programa 
impone y de las cuales tiene una gestión com- 
pleta. Las definiciones de estas posiciones de 
memoria están agrupadas en la WORKING- 
STORAGE SECTION. ; 


FILE SECTION 


La primera sección de la DATA DIVISION es la 
FILE SECTION, en la que se declaran al Compi- 
lador las características de todos los files que 
utiliza el programa. Por tanto, es obvio que esta 
sección puede omitirse en el caso en que el 
programa no necesite ningún file ni en la entra- 
da ni en la salida. Para que pueda existir un pro- 
grama de este tipo, prácticamente no hay nin- 
gún empleo en ambiente comercial, donde los 
procesos están dedicados típicamente a la ma- 
nipulación de archivos 

Cada file se describe al Compilador mediante el 
indicador de nivel, el nombre y una serie de 
cláusulas, algunas de ellas facultativas, que es- 
pecifican sus características. 

El indicador de nivel está constituido por la pala- 
bra reservada FD, abreviación de File Descrip- 
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tion, perforada a partir de la columna 8 del pe- 
ríodo de descripción. Por ejemplo: 


DATA DIVISION, 
FILE SECTION. 
FD DESCRIPCION. 


En el ejemplo, DESCRIPCION es el nombre del 
file utilizado en el interior del programa. El nom- 
bre del file debe perforarse siempre a partir del 
margen B, y mejor a partir de la columna 12. 


Descripción de los datos: la cláusula BLOCK 
CONTAINS. Antes de analizar la continuación 
del período de descripción del file es interesan- 
te indicar algunas informaciones relativas a los 
files secuenciales. 

Un file secuencial en disco puede leerse toman- 
do un record cada vez. Este modo de proceder, 
sobre todo si los records a leer son muchos y 
tienen longitudes muy pequeñas, puede prolon- 
gar mucho los tiempos de proceso. Efectiva- 
mente, cada lectura o escritura en disco com- 
porta operaciones mecánicas como el posicio- 
namiento de la cabeza sobre la pista o el sector 
oportuno, cuyos tiempos de ejecución son co- 
mo promedio mil veces superiores a los típicos 
de las operaciones efectuadas en la memoria. 
Por tanto, es preferible organizar los records de 
un file en bloques, de manera que cada opera- 
ción de lectura o escritura física en disco trate 
simultáneamente más records. En otras pala- 
bras, el Cobol transfiere siempre un bloque ca- 
da vez, desde o hacia el file. Si no se declaran 
cláusulas relativas al «bloqueo» de los records, 
el Compilador reserva a estas operaciones un 
área de memoria igual a la longitud del record y, 
por tanto, el sistema quedará limitado a realizar 
tantos accesos en el disco como cuantos re- 
cords leídos o escritos haya en el file. Si, en 
cambio, el programador declara el bloque com- 
puesto por un cierto número n de records, el 
Compilador reservará un área (buffer) adecua- 
da para contener enteramente n records. 

De este modo, el acceso al disco para la lectura 
de un nuevo bloque sólo se realizará cuando el 


programa haya tratado todos los n records del 
bloque anterior. El procedimiento se ha esque- 
matizado en el gráfico de la página siguiente, en 
el que se ha supuesto que deben leerse y pro- 
cesarse los records de un file secuencial con 
bloqueo = 3. En este caso, la descripción del 
file debe contener la cláusula 


BLOCK CONTAINS 3 RECORDS 


La forma general de las cláusulas se indica en la 
tabla del final de la página. 
Son cláusulas válidas las siguientes: 


BLOCK CONTAINS 10 RECORDS 

BLOCK CONTAINS 1 TO 10 RECORDS 
BLOCK CONTAINS 100 CHARACTERS 
BLOCK CONTAINS 10 TO 900 CHARACTERS 


Debe observarse que, si se usa la declaración 
CHARACTERS, el número de caracteres decla- 
rados debe contener también los caracteres de 
control. 

La cláusula BLOCK puede omitirse, y esto equi- 
vale a escribir 


BLOCK CONTAINS 1 RECORDS 


La cláusula LABEL RECORD. Esta cláusula 
siempre debe estar presente en la descrip- 
ción de un file y tiene la función de especificar 
si todo el file descrito tiene o deberá tener eti- 
quetas (labels). 

El formato general de la cláusula es el siguiente 


FORMATO DE LA CLAUSULA 
LABEL RECORDS 


RECORD IS 


OMITTED 
LABEL 


RECORD ARE STANDARD 


FORMATO DE LA CLAUSULA BLOCK CONTAINS 


BLOCK CONTAINS [entero-1 TO] entero-2 Í 


CHARACTERS | 


RECORDS 
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3 

ES, 
|. 


LOGICA DEL BLOQUEO DE UN FILE SECUENCIAL 


EE 


(Contenido a la 2.* lectura) 


== Instrucciones del programa 


mm Instrucciones correspon- 
dientes del Compilador 

===. Acciones consiguientes 
del sistema 


E: Ñ 
Buffer del file 

(contenido a la 

1.* lectura) 


Como es fácil intuir, la palabra OMITTED espe- 
cifica que el file no está dotado de etiquetas, 
mientras que la palabra STANDARD se utiliza 
para aquellos files que son o deben ser creados 
con las etiquetas estándar previstas por el siste- 
ma operativo del calculador. 

Para todos los files asignados al lector de fichas, 
al pertorador de fichas o a la impresora debe 
utilizarse la cláusula 


LABEL RECORD IS OMITTFED 


La cláusula RECORDING MODE. A menudo, 
los records contenidos en un file tienen todos la 
misma longitud. Sin embargo, por exigencias 
específicas es posible tratar otros tipos particu- 
lares de memorización de los records. 

El formato general de la cláusula es el siguiente: 


Omitir la cláusula equivale a escribir RECOR- 
DING MODE IS F, y el Compilador supone que 
los records del file tienen una longitud fija (Fi- 
xed). Esta longitud se calcula automáticamente 
en base a la descripción del record, como se 
verá más adelante. 
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El significado de las letras que aparecen en la 
cláusula es el siguiente 


V Esla inicial de Variable y declara explíci- 
tamente que los records del file tienen lon- 
gitudes variables. El modo en que el Com- 
pilador adquiere el campo de variabilidad 
de estas longitudes quedará claro cuando 
se hable de la descripción del record. 
Sin embargo, debe tenerse presente que, 
durante la escritura de un file con RECOR- 
DING MODE V, el sistema asocia a cada 
record un campo que contiene la longitud 
del record, y a cada bloque otro campo 
en el que se indica la longitud del bloque. 
Estos campos son completamente gestio- 
nados por el sistema operativo y no es ne- 
cesario tenerlos en cuenta en la descrip- 
ción del record. A continuación se indica 
un ejemplo de descripción de un file con 
records de longitud variable: 


FD ARCHIVO 
LABEL RECORD IS STANDARD 
RECORDING MODE IS V 
RECORD CONTAINS 
1 TO 200 CHARACTERS 
BLOCK CONTAINS 
1 TO 45 RECORDS. 


La cláusula RECORD CONTAINS todavía 
no se ha descrito, pero es de interpreta- 
ción inmediata, 

U  LaletraU, inicial de la palabra inglesa Un- 
defined (indefinido), caracteriza un file en 
el que los records pueden tener, entre un 
intervalo precisado, longitudes cuales- 
quiera. En este caso, el reconocimiento 
del tipo de record tratado lo efectúa el 
programador mediante un criterio cual- 
quiera. Es importante observar que en el 
caso RECORDING MODE U debe omitir- 
se la cláusula BLOCK, como en el si 
guiente ejemplo: 


FD FILE-U 
LABEL RECORD IS STANDARD 
RECORDING MODE IS U 
RECORD CONTAINS 
100 TO 200 CHARACTERS. 


S La cláusula RECORDING MODE |S S es- 
pecifica un file en el que los records lógi- 
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cos tienen una longitud (en caracteres) 
que supera las dimensiones del bloque. 
En este caso, los records se «fragmen- 
tan» (spanned, en inglés) en más de un 
bloque. Un file con RECORDING MODE S 
puede contener tantos records de longi- 
tud fija como records de longitud variable; 
esta información la conoce el Compilador 
en base a la correspondiente descripción 
del record y/o de la cláusula RECORD 
CONTAINS. En el siguiente ejemplo 


FD FILE-S 
LABEL RECORD IS STANDARD 
RECORDING MODE IS S 
RECORD CONTAINS 
1 TO 500 CHARACTERS 
BLOCK CONTAINS 
1 TO 300 CHARACTERS. 


El file FILE-S tiene records de longitud va- 
riable y, como puede observarse, la máxi- 
ma longitud del record es superior a la 
máxima dimensión del bloque. Obsérvese 
que en el caso de RECORDING MODE S, 
el valor del bloqueo debe proporcionarse 
en CHARACTERS y no en RECORDS. 


La cláusula RECORD CONTAINS. Especifica 
explícitamente la longitud del record. Esta tam- 
bién puede ser asumida por el Compilador so 
bre la base de las descripciones del record o de 
los records contenidos en el file. 

Su formato completo se indica en la pág. 971. 


Estructura de los records. Durante el análisis 
de las diversas cláusulas para la descripción 
del file se ha dicho varias veces que el Compila- 
dor puede obtener de las descripciones del re- 
cord sus dimensiones en caracteres. Es intere- 
sante recordar que el Compilador debe reservar 
en la memoria tantas posiciones como sean ne- 
cesarias para contener el record. Efectivamen- 
te, ésta es el área en que queda disponible para 
el programa un record procedente del disco, o 
en que el programa compone el record antes de 
la operación de escritura en disco. 

Un record está compuesto por una serie de ca- 
racteres agrupados lógicamente en campos. 
Mientras una operación sobre un file, por ejem- 
plo de lectura, transfiere en memoria un record 
entero, el programa tiene la posibilidad de di- 
reccionar y tratar el record tanto en su totalidad 


Niveles jerárquicos 
de los datos 


Matrícula 


Segundo nivel (02) 


Tercer nivel (03) 


Pm Dato de primer nivel (record) 
=== Dato de segundo nivel 
==... Dato de tercer nivel 


como en sus campos componentes, siempre 
que éstos se hayan definido oportunamente. 
Por ejemplo, el file EMPLEADOS contiene re- 
cords de longitud fija de 100 caracteres. 

La estructura del record es la esquematizada 
arriba. 

Este esquema establece un orden jerárquico 
que permite direccionar y modificar totalmente o 
en parte el área de memoria que alberga el re- 
cord EMPLEADO. A esta jerarquía hay asocia- 
dos números de nivel como puede verse en la 
descripción indicada en el listado de la parte 
superior de la pág. 972. 

La descripción de cada campo utiliza una fila o 
bien una ficha. A cada campo hay asociado, al 
principio de la ficha, un número de dos cifras 
(número de nivel) comprendido entre 01 y 49, 
que identifica el nivel jerárquico de aquel campo 
con respecto al campo anterior. El nivel 01 iden- 
tifica todo el record. Esto significa que, por 
ejemplo, modificar el contenido del campo EM- 


DEFINICION Y ESTRUCTURA DE UN RECORD 


Primer nivel (01) == ippo 01] 


Record 


de nacimiento 


PLEADO equivale a modificar de una sola vez 
los contenidos de todos los campos que tienen 
números de nivel mayores. 

Y viceversa, también es posible modificar el 
contenido del campo AÑO-NACIMIENTO (nivel 
03), sin que se altere ningún otro campo del re- 
cord EMPLEADO, 

No es necesario que los números de nivel sean 
progresivos, aunque es aconsejable asignar a 
campos contiguos números de nivel al menos 
con paso 5, reservándose de esta manera la po- 
sibilidad de definir con ulteriores detalles uno 
cualquiera de los campos ya descritos (ver lista- 
do de abajo de la pág. 972). 

La palabra PIC que aparece en algunas de las 
filas de los ejemplos es la abreviación de la pa- 
labra reservada PICTURE e identifica, mediante 
la notación que le sigue, la longitud y el tipo del 
campo. El tipo de carácter que el campo puede 
albergar se declara con el símbolo que sigue 
inmediatamente a la palabra PIC: 
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DESCRIPCION DE LOS RECORDS DEL FILE EMPLEADOS (1) 


FI EMPLEANOS 
LABEL RECORD STANDARD 
RECORDING MODE 15 F 
RECORD CONTAINS 100 CHARACTERS. 
01 EMPLEADO. 
02 MATRICULA PIC 
02 NOMERE-APELL IDO PIC 
02  FECHA-NACIMIENTO. 
03 TDIA-NACIMIENTO PIC 
03 MES-NACIMIENTG FIC 
03 AMOD-=NACIMIENTO PIC 
02 SEXO PIC 
02 EMPLEO, 
03  SECTOR-EMP P1C 
03 NIVEL -EMP PIC 
DESCRIPCION DE 
FO” EMPLEADOS 
LAREL RECORD STANDARD 
RECORTIING MODE 15 F. 
01 EMPLEADO, 
09 MATRICULA PIC 
05  NOMBRE-APELL TINO PIC 
05  FECHA-=NACIMIENTO 
10  DTA-NACIMIENTO PIC 
10  MES-NACIMIENTO PIC 
10 AÑO-NACIMIENTO PIC 
03 SEXO PIC 
035 EMPLEO. 
10 SECTOR-EMP FPIc 
10  NIVEL-—EMF PIC 
05  —FILLER PIC 


X =caracteres alfanuméricos, tanto letras, nú- 
meros como espacios en blanco. 

A =caracteres alfabéticos (letras de A a 7 y es- 
pacios en blanco) 

9 =caracteres numéricos (cifras de O a 9) 


Considérese, por ejemplo, la descripción cel 
campo NOMBRE-APELLIDO: la notación PIC 
X(30) declara al Compilador que el área de me- 
moria reservada a aquel campo debe contener 
un máximo de 30 caracteres alfanuméricos. 
Obsérvese que escribir 05 MATRICULA PIC 
9(3) o bien 05 MATRICULA PIC 999 es comple- 
tamente equivalente a efectos del Compilador, 
pero el segundo formato es menos práctico, es- 
pecialmente si el campo es muy largo. 

En el caso de campos subdefinidos, como por 
ejemplo FECHA-NACIMIENTO, el Compilador 
no necesita la definición de las dimensiones y 
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977. 
X(30), 


99. 
NA an 
9% 
A. 


SID, 
PA 


LOS RECORDS DEL FILE EMPLEADOS (2) 


93). 
x(30), 


912). 
ID, 
SID. 
A. 


SID. 
SID. 
Xx (0534), 


del tipo del campo, puesto que puede calcular 
su longitud como suma de las longitudes de los 
campos componentes, y además asume par 
definición el campo del nivel superior como alfa- 
numérico, O sea, el campo FECHA-NACIMIEN- 
TO tiene evidentemente una longitud total de 
6 caracteres, pero al estar compuesto por cam- 
pos numéricos [PIC 9(2)] se considera global- 
mente como campo alfanumérico. Más adelan- 
te se volverá sobre este tema. 

A pesar de las aparentes diferencias, los ejem- 
plos mostrados son completamente equivaler- 
tes. En el primer caso, por haber declarado ex- 
presamente la cláusula RECORD CONTAINS 
100 CHARACTERS, el Compilador reserva al re- 
cord un área de 100 caracteres a pesar de que 
se hayan descrito campos del record para un 
total de 46 caracteres. En el record entonces 
hay un campo de 54 caracteres que, al no ha- 


ber sido descrito, no puede utilizarse, En el se- 
gundo ejemplo se obtiene el mismo resultado 
insertando en la descripción del record el cam- 
po de 54 caracteres que tiene por nombre la 
palabra reservada FILLER (relleno). 
Efectivamente, un campo definido FILLER ocu- 
pa posiciones de memoria, pero no es referen- 
ciable por el programa. Así, el Compilador, al 
efectuar las sumas de las longitudes sencillas, 
reservará automáticamente 100 caracteres, y 
esto justifica la omisión de la cláusula RECORD 
CONTAINS 100 CHARACTERS. 

Finalmente, obsérvese que en el segundo ejem- 
plo se ha omitido la cláusula RECORDING 
MODE F, puesto que es superflua. Efectivamen- 
te, si el file hubiese sido de longitud variable, 
habría necesitado o la cláusula RECORD CON- 
TAINS número-miínimo TO número-máximo CHA- 
RACTERS, o la definición, a nivel 01, de otro re- 
cord de longitud diferente al ya definido. 


WORKING-STORAGE SECTION 


La WORKING-STORAGE SECTION es la sec- 
ción de la DATA DIVISION en que se describen 
todos los datos y las áreas de trabajo utilizados 
en el curso del programa. Estas áreas se desti- 
nan a contener valores fijos o valores simultá- 
neos generados en el flujo del proceso. 

Es interesante observar explícitamente que la 
mayor parte de las reglas que se examinarán a 
continuación, relativas a la descripción de los 
campos en WORKING-STORAGE, son aplica- 
bles a la descripción de los records de la FILE 
SECTION. En la descripción de aquella sección 
se ha querido ev tar deliberadamente proporcio- 
nar nociones no indispensables al tratamiento: 
su uso en aquella parte, si bien previsto por el 
Cobol y por tanto sintácticamente correcto, ha- 
bría distraído la atención del lector sobre la es- 
tructura lógica de las secciones. En consecuen- 
cia, de ahora en adelante, todas las reglas escri- 
tas deben entenderse como válidas también 
para las descripciones del record en la FILE 
SECTION salvo indicación en contra. 


El nivel 77. Como ya se habrá observado, a la 
descripción de un campo-datos hay asociado 
siempre un número de nivel que identifica su 
posición jerárquica en el interior de un área de 
memoria. 

Un campo se llama elemental si no puede des- 
componerse posteriormente en otros campos 
de nivel más profundo. Considérese por ejem- 


plo el campo FECHA-PROCESO: 
01 FECHA-PROCESO. 


05 DIA PIC 9(2). 
05 MES PIC 9(2). 
05 AÑO PIC 9(2). 


Aquí, todos los campos de nivel 05 son campos 
elementales. 

Supóngase que debe definirse un campo ele- 
mental, por ejemplo PROVINCIA, que no perte- 
nezca a ningún otro campo y que a su vez no 
sea subdefinido. En este caso es posible utilizar 
dos tipos de definición: 


01 PROVINCIA 
77 PROVINCIA 


PIC X(2). 
PIC X(2). 


Las dos definiciones son completamente equi- 
valentes y sólo difieren por el número de nivel. 
La primera utiliza el nivel 01, y puede escribirse 
en cualquier punto de la WORKING-STORAGE 
SECTION, mientras que la segunda, al utilizar el 
número de nivel 77, debe escribirse al principio 
de la sección, como se indica en los dos ejem- 
plos que siguen: 


m primer caso 


01 CAMPO-1. 
05 SUBCAMPO-1 PIC X(30). 
05 SUBCAMPO-2. 
10 SUBCAMPO-21 PIC 9(3). 
10 SUBCAMPO-22 PIC 9(3). 
01 PROVINCIA PIC X(2). 


m segundo caso (nivel 77) 


WORKING-STORAGE SECTION. 
77 PROVINCIA PIC X(2). 


El número de nivel 77 no puede utilizarse para la 
definición de un record en la FILE-SECTION. 
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El nivel 88. Como el campo PROVINCIA es un 
campo alfanumérico de dos caracteres [PIC 
X(2)], puede contener, por ejemplo, la sigla de 
la matrícula automovilística de dicha provincia. 
Si en el curso del programa se tiene necesidad 
de verificar si la provincia examinada es la de 
Barcelona, deberá escribirse (a partir de la co- 
lumna 12) 


IF PROVINCIA IS EQUAL TO 'B' 


Esta verificación puede hacerse de forma dife- 
rente si el campo PROVINCIA está definido, por 
ejemplo, de la siguiente manera: 


01 PROVINCIA PIC X(2). 
88 BARCELONA VALUE 'B'. 
88 MADRID VALUE 'M". 
88 VALENCIA VALUE '"V”, 
80: sisgenotsr VALUE ”...' 
€ 


En este caso, la anterior verificación puede es- 
cribirse del modo 


IF BARCELONA 

En otras palabras, el nivel 88 permite asociar a 
un campo elemental, no necesariamente al nivel 
01 o 77, un nombre condicional. 

Otro ejemplo se muestra en el listado de abajo. 
En este caso, para saber si el empleado exami- 
nado es un hombre o una mujer, puede escribir- 
se IF HOMBRE... en lugar de IF SEXO IS EQUAL 
TO "V. 


El nivel 66 y la cláusula RENAMES. El último 
número de nivel especial utilizado en el Cobol 
es el nivel 66. Su empleo, está ligado exclusiva- 


mente a la cláusula RENAMES, que permite re- 
ferenciar un dato elemental o un grupo de datos 
ya descritos con un nombre diferente al utilizado 
en la descripción. Considérese, por ejemplo, el 
record EMPLEADO definido así: 


01 EMPLEADO. 
05 MATRICULA PIC 9(3). 
05 NOMBRE-APELLIDO. 
10 APELLIDO PIC X(20). 
10 NOMBRE PIC X(10). 
05 FECHA-NACIMIENTO. 
10 DIA-NACIMIENTO PIC 9(2). 
10 MES-NACIMIENTO PIC 92). 
10 AÑO-NACIMIENTO — PIC 9(2). 
05 SEXO PIC A. 


Supongamos ahora que debe reagruparse en 
un campo único de nombre CODIGO-1 el nú- 
mero de matrícula (MATRICULA) y sólo el apelli- 
do del empleado (APELLIDO) sin efectuar ope- 
raciones de movimiento dentro del programa. 
En este caso, el reagrupamiento se obtiene me- 
diante la cláusula RENAMES, o bien escribien- 
do lo siguiente: 


01 EMPLEADO. 
05 MATRICULA PIC 9(3). 
05 NOMBRE-APELLIDO. 
10 APELLIDO PIC X(20). 
10 NOMBRE PIC X(10). 
05 FECHA-NACIMIENTO, 
10 DIA-NACIMIENTO PIC 9(2). 
10 MES-NACIMIENTO PIC 9(2). 
10 ANO-NACIMIENTO PIC 9(2). 
05 SEXO PIC A. 


66 CODIGO-1 RENAMES MATRICULA THRU 
APELLIDO. 


EMPLEO DEL NIVEL 88 


*r . ro -—- >. 13% Ez a 
01 EMPLEADO. 
AU NN A pa 
05 NOMBRE -APELL DO PIC X(30). 
RT eee € a - E = 
DIA-NACIMIEN PIC 912), 
DARAN EN e e 
10  AÑO-NACIMIENTO Etc 912). 

ADE EA A : 
88 HOMBRE VALUE 'v' 

oo BB. MUJER VALUE Ada E 

05 EMPLEO. 
O) SECTOR-EMP.--—-.).)2 > PIC 93d). 

10 NIVEL-EMP PIC 9(3), 

A AS AAA A SS e 


“TT e A A 
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ESQUEMA DE LAS AREAS DE MEMORIA SOMETIDAS A 
LA CLAUSULA RENAMES 


Matr/' ' 


Nombre y 


APELLIDO 


De esta manera se comunica al Compilador que 
reserve un área de memoria de nombre 
CODIGO-1 alfanumérica y con longitud total de 
33 caracteres, o bien para contener simultánea- 
mente los campos del record que van desde 
MATRICULA a (THRU) APELLIDO inclusive (ver 
gráfico de arriba). 

La cláusula RENAMES también puede utilizarse 
simplemente para referenciar un dato con un 
nombre diferente al que se ha descrito previa- 
mente. Por ejemplo: 


66 NACIMIENTO RENAMES FECHA-NACI- 
MIENTO. 


En definitiva, el formato general de la cláusula 
RENAMES es el indicado en la tabla de abajo. 
El significado de nombre-dato-1, nombre-dato-2 
y nombre-dato-3 se ha descrito en los ejemplos 
indicados anteriormente. 


La cláusula REDEFINES. La exigencia de refe- 
rir un grupo de datos contiguo de forma diferen- 


FORMATO DE 


66 nombre-dato-? RENAMES 


Apellido techa-nacimienti 


NOMBRE 


Ocupaciones de memoria: 
Código-1: 33 caracteres 
Empleado: 40 caracteres 


te a la permitida por la descripción original pue- 
de sentirse muy frecuentemente en el ámbito de 
las programaciones Cobol. La cláusula RENA- 
MES, descrita anteriormente, es seguramente el 
método menos usado para resolver el proble- 
ma, puesto que presenta el inconveniente de 
ocupar otro espacio de memoria para la dispo- 
sición del dato con el nuevo nombre. En cam- 
bio, la cláusula REDEFINES permite redefinir el 
espacio reservado a un cierto dato sin ocupar 
otros espacios de mernoria. 

Sin embargo, debe subrayarse que la utilización 
de la cláusula REDEFINES sólo es posible cuan- 
do se está completamente seguro de que las 
dos definiciones deberán utilizarse en tiempos 
diferentes. En otras palabras, si por ejemplo el 
programa utiliza en un determinado momento el 
área DATA PR (proceso de datos) y después el 
área ART (artículo), puede evitarse definir sepa- 
radamente las dos áreas en la WORKING- 
STORAGE SECTION (ocupando por tanto dos 
áreas de memoria) recurriendo a la siguiente es- 
critura: 


0-2 | IHRU nombre-dato-3 


975 


01 DATA-PR. 


05 DIA PIC 9(2). 
05 MES PIC 9(2). 
05 AÑO PIC 9(2). 
01 ART REDEFINES DATA-PR. 
05 SERIE PIC X. 
05 NUMERO PIC 9(3). 
05 FILLER PIC X(2). 


Como la cláusula REDEFINES necesita que el 
área refinidora y la refinida tengan la misma lon- 
gitud, en el ejemplo se ha insertado un campo 
FILLER de dos caracteres en el área ART. 

Un mismo campo puede redefinirse varias ve- 
ces según las modalidades ya descritas: sin 
embargo debe tenerse presente que las cláusu- 
las REDEFINES siguientes siempre deben ha- 
cer referencia al primer campo de la cadena. 
Suponiendo que se utilice todavía el campo 
DATA-PR y que se quiere redefinir posterior- 
mente como campo NUM (número de protoco- 
lo) es correcto escribir lo siguiente: 


01 DATA-PR. 
05 DIA PIC 92). 
05 MES PIC 9(2). 
05 AÑO PIC 9(2). 
01 ART REDEFINES DATA-PR, 
05 SERIE PIC X. 
05 NUMERO PIC 9(3). 
05 FILLER PIC X(2). 
01 NUM REDEFINES DATA-PR PIC 96). 


La cláusula REDEFINES no puede aplicarse a 
los períodos de descripción de record de la Fl- 
LE SECTION, ni a campos con número de nivel 
66 y 88. La cláusula debe ir seguida inmediata 
mente por la descripción del campo al que se 
hace referencia y debe tener el mismo númerc 
de nivel. Como se verá más adelante, el Compi- 
lador puede implantar el contenido de un cam- 
po al valor establecido por el programador me- 
diante la cláusula VALUE. Considérese por 
ejemplo el campo ESTAB (establecimiento) a 
definir como sigue: 


01 STAB. 
05 DOMICILIO. PIC X(2) VALUE 'B'. 
05 NUM-STAB PIC 9(4). 


En estas condiciones no es posible utilizar STAB 
como redefinición de otro campo. En otras pala- 
bras, es erróneo escribir por ejemplo: 
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01 DATA-PR, 
05 DIA PIC 9/2). 
05 MES PIC 9í2). 
05 AÑO PIC 9(2). 
01 STAB REDEFINES DATA-PR. 
05 DOMICILIO. PIC X(2) VALUE 'B”. 


05 NUME-STAB PIC 9(4). 

Es interesante precisar que la cláusula VALUE, 
usada para la declaración de un nombre condi- 
cional al nivel 88, no impide el uso de la cláusula 
REDEFINES. Es decir, el ejemplo que sigue es 
correcto: 


01 DATA-PR. 
05 DIA PIC 9(2). 
05 MES PIC 9/2). 
05 AÑO PIC 9(2). 
01 STAB REDEFINES DATA-PR. 
05 DOMICILIO. PIC X(2). 
88 BARCELONA VALUE 'B', 
88 MADRID. VALUE 'M”. 
05 NUM-STAB PIC 9/4). 


Debe indicarse que las notaciones 


05 DOMICILIO PIC X(2) VALUE 'B'. 


05 DOMICILIO PIC X(2). 
88 BARCELONA VALUE 'B', 


no son equivalentes, puesto que con la primera 
se impone al Compilador implantar en el área 
DOMICILIO el valor B, mientras que con la se- 
gunda el programador se reserva la gestión del 
contenido de DOMICILIO pidiendo al Compila- 
dor que sólo asocie el nombre BARCELONA al 
grupo de caracteres B para poder verificar su 
existencia en el campo DOMICILIO. El uso del 
nivel 88 se ha descrito anteriormente, 


La cláusula PICTURE. La cláusula PICTURE 
(PIC), ya introducida y usada en los ejemplos 
anteriores, proporciona informaciones al Compi- 
lador acerca del número y del tipo de caracte- 
res contenidos en un dato elemental. Además, 
con esta cláusula, el programador puede indi- 
car al Compilador toda una serie de operacio- 
nes a efectuar sobre caracteres del campo. Es- 
tas operaciones, orientadas sobre todo a los 
campos a utilizar en la fase de impresión, permi- 


O 


Monitorización computerizada de una planta química. 


ten insertar símbolos particulares y cancelar o 
enmascarar caracteres de dicho campo. 

El formato general de la cláusula PICTURE se 
indica en la siguiente tabla y debe especificarse 


FORMATO DE 
LA CLAUSULA PICTURE 


PICTURE 


IS símbolos. 
PIC 


para todos los campos elementales, tanto a ni- 
vel 77 como a cualquier otro nivel comprendido 
entre 01 y 49. 

La cláusula no se llama para los campos com- 
puestos, puesto que el Compilador puede cal- 
cular las dimensiones del campo compuesto 
sumando las dimensiones de los campos com- 
ponentes y suponiendo por definición el campo 
compuesto como alfanumérico, independiente- 
mente de las clases de los datos descritos. 


Es decir, el campo 


01 FECHA-NACIMIENTO. 


05 DIA PIC 9(2). 
05 MES PIC 9(2). 
05 AÑO PIC 9(2). 


es interpretado, en cuanto a referido globalmen- 
te, como campo alfanumérico de 6 caracteres. 
Es importante subrayar que la cláusula PICTU- 
RE tiene una importancia fundamental para la 
veracidad de los resultados de un proceso. 
Efectivamente, un programa formal y sintáctica- 
mente correcto puede proporcionar resultados 
inalcanzables o conducir a terminaciones anó- 
malas sólo porque contiene una definición erró- 
nea de un campo. Esta cláusula es muy impor-, 
tante, y sus implicaciones se esclarecerán opor- 
tunamente más tarde. Antes de continuar obser- 
vemos que a continuación siempre se adoptará 
el formato abreviado 


PIC símbolos. 


El conjunto de los simbolos utilizables en la 
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cláusula PICTURE es el siguiente: 


AX9PX*S5BO+-.,/SVCRDB 
Los símbolos S V CR DB sólo pueden aparecer 
una vez en el ámbito de una misma PICTURE, 
mientras que la coma puede repetirse, aunque 
no inmediatamente, después de otra coma. 

La PICTURE puede contener un máximo de 30 
símbolos, o bien es posible escribir 


01 NOMBRE PIC X(35). 


mientras que no se permite la forma 
01 NOMBRE 


PIC XXX...(35 símbolos X) 
AX 


puesto que los símbolos que siguen a la pala- 
bra PIC son 35. 

La sintaxis y el significado de la cláusula son 
diferentes para los campos numéricos, alfabéti- 
cos y alfanuméricos. 


Descripción de los campos numéricos. Ur 
campo destinado a acoger exclusivamente va- 
lores numéricos está descrito en la WORKING- 
STORAGE SECTION con un símbolo de PICTU- 
RE constituido por una combinación de los ca- 
racteres 9 V PS, 

El símbolo 9 identifica una cifra (en base 10) del 
conjunto que constituye el campo. El contenido 
de los campos numéricos se entiende siempre 
en el sistema decimal, también si su representa- 
ción interna se realiza según la codificación de- 
clarada con la cláusula USAGE, de la que se 
hablará más adelante. 

Por ejemplo, el descrito por la línea 


01 CAMPO-1 PIC 9 (10). 


es un campo que puede albergar, como máxi- 
mo, un número entero constituido por 10 cifras. 
Por definición, un campo numérico no puede 
contener caracteres que no sean cifras, Por tan- 
to, en base a esta definición, un campo numéri- 
co no puede contener ni el punto decimal. Para 
poder indicar la posición de este separador se 
recurre al símbolo V, que identifica la posición 
virtual. Es decir, el simbolo V no ocupa espacio 
en memoria, pero establece una referencia para 
el Compilador de manera que permita una co- 
rrecta alineación de los datos tratados en aquel 
campo. El campo numérico descrito por la linea 
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01 CAMPO-2 PIC 9(3)V9(3). 

ocupa en memoria 6 caracteres y puede alber- 
gar números reales de tres cifras enteras y tres 
decimales como máximo. Si al CAMPO-2 se le 
asigna, por ejemplo, el valor 123456, este nú- 
mero será recibido y tratado como 123.456. 

El carácter P permite extender el número conte- 
nido en el campo con tantos ceros (0) como 
cuantos símbolos P hay presentes en el simbolo 
de la PICTURE, Suponiendo que el dato a trans- 
terir es 8741 y que la definición del campo es 


01 CAMPO-3 PIC 94)9(5)V. 


el número se recibirá y tratará como 
874100000. 
mientras, si la definición es 


01 CAMPO-3 PIC VP(5)9/4). 


el número será tratado como 
000008741 


El caracter S, si se emplea, debe ser el primero 
en la combinación de los símbolos de la PICTU- 
RE y permite tratar el valor numérico contenido 
en el campo junto con su signo algebraico. Si en 
el símbolo de la PICTURE se omite el carácter S, 
el contenido del campo se considera siempre 
positivo. Por ejemplo, el campo descrito por la 
línea 

01 CAMPO-4 PIC Sg(8). 

puede albergar, tanto el valor +425, como el va- 
lor 425. Adoptando el símbolo S se tiene ade- 
más la posibilidad de presentar el signo alge- 
braico en impresión. 

Es interesante subrayar la importancia que asu- 
me la correcta definición de un campo numéri- 
co. Efectivamente, si bien un campo definido al- 
fanumérico (PIC X) puede albergar también ci- 
fras, éstas se tratarán exclusivamente como 
cualquier otro carácter no numérico. 

En otras palabras, si el campo está definido co- 
mo numérico (PIC 9) es posible tratar su conte- 
nido realmente como un número. 

Por tanto, el uso de campos numéricos no sólo 
permite poder tratar su contenido mediante las 


operaciones aritméticas, sino también presen- 
tarlos correctamente en impresión con la inser- 
ción física del punto decimal y del signo alge- 
braico anexo. 

Par tanto, la definición de un campo establece, 
además de su extensión en memoria, también 
su código según el tipo de caracteres que deba 
albergar. ' 


Descripción de los campos alfabéticos 


Por campo alfabético se entiende un campo 
que puede albergar todos y sólo los caracteres 
del alfabeto inglés de la A a la Z, más el espacio 
en blanco (blank), indicado con b. 
Para indicar al Compilador posiciones de me- 
moría de tipo altabético, deberán insertarse en 
la descripción tantas A como cuantos caracte- 
res compongan el campo. 
Supóngase que se desea definir el campo 
NOMBRE-APELLIDO alfabético de 30 caracte- 
res; su descripción será 

01 NOMBRE-APELLIDO PIC A(30). 


El campo así definido puede acoger por ejem- 
plo el dato: 


JUAN JOSE PEREZ 
pero no el dato: 
PROF. JUAN JOSE PEREZ 


puesto que entre los caracteres de esta última 
cadena hay comprendido el punto. 
Considérese ahora el caso en que un programa 
tome un campo de 8 caracteres alfabéticos, de 
los cuales los dos primeros identifican el mode- 
lo, los siguientes tres la serie y los últimos tres el 
mes de producción de un determinado artículo. 
Si, por exigencias de impresión, los grupos de 
caracteres citados deben estar separados por 
uno o más espacios en blanco, puede recurrirse 
al símbolo B de la cláusula PICTURE: 

01 CODIGO PIC A(2)BBA(3)BA(3). 
Es decir, suponiendo que el código leído sea 
AZXYWSET, el contenido de CODIGO será 


AZ XYW SET 


Por tanto, el programador puede obtener, en 
determinadas posiciones del campo, la inser- 


ción de tantos espacios en blanco como cuan- 
tas B hayan en la cláusula PICTURE, 


Descripción de los campos alfanuméri- 
cos 


Un campo alfanumérico puede albergar una 
cadena de caracteres compuesta por letras, nú- 
meros, caracteres especiales y espacios en 
blanco en cualquier orden. 

El símbolo que declara al Compilador esta clase 
de datos es la letra X. El Compilador considera 
también alfanumérico un campo en que estén 
presentes al mismo tiempo los símbolos de defi- 
nición de al menos dos clases de caracteres. Es 
decir, todos los campos descritos en el ejemplo 
siguiente son alfanuméricos: 


01 SERIE-ARTICULO PIC AA9(2), 
01 PRODUCTOR PIC X(30). 

01 DESCRIPCION PIC AAAXXXX. 
01 DESCRIPCION PIC A(3)C(4). 


También los campos alfanuméricos prevén una 
serie de simbolos llamados de edición, que in- 
sertados oportunamente en la cláusula PICTU- 
RE, permiten algunas operaciones particulares 
sobre los caracteres. 
Considérese el caso en que el campo 

01 SERIE-ARTICULO PIC AA9(2). 
deba presentarse en impresión en la forma Se- 
rie/Número. En este caso es suficiente cefinir el 
campo de impresión como sigue: 

05 SERIE-IMPRIME PIC A(2/9(2). 
Por tanto, si el dato contenido en SERIE- 
ARTICULO fuese SR12, una vez desplazado en 
SERIE-IMPRIME asumiría la forma: 


Sr/12 


El símbolo O utilizado en una PICTURE de tipo 
alfanumérico permite insertar, con la misma lógi- 
ca ya vista para los simbolos B y /, uno o más 
caracteres O en la posición especificada en la 
cláusula. Otros símbolos, orientados a la predis- 
posición en la impresora para los campos nu 
méricos, se analizan a continuación. 


* Sustituye en impresión un cero inicial 
que se encuentra en la posición ocu- 
pada por el símbolo en la PICTURE. 
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Z Sustituye en impresión tantos ceros ini- en la posición especificada. 
ciales como cuantas Z hay especifica- En el caso a), en la PICTURE deberán 
das con espacios en blanco. haber presentes tantos símbolos $ co- 
Inserta una coma en la posición espe- mo cuantos sean los ceros que se de- 
cificada en la PICTURE, siempre que el sean suprimir. En el caso b) debe es- 
carácter que la precede no se haya su- pecificarse un solo carácter $. 
primido. += Pueden utilizarse, según la misma lógi- 
$ Tiene un doble uso: ca del símbolo $, como caracteres de 
a) supresión de ceros no significativos inserción o de supresión. 
y sustitución del último cero supri-— CR DB El sufijo CR es la abreviación de CRE- 


Simbolo 


* 


mido con el símbolo de moneca. 
b) Inserción del símbolo de moneda 


Dato a imprimir 


0000 
0000 
1234 
0012 
0012 
0012 


0000 
1230 
0012 
0012 
0012 


12345 
00123 
00123 


Picture del campo 
de impresión 


Kk* ko 


ko kokok 
ES 
oo 


DIT, mientras que DB es la abreviatura 
de DEBIT. Sólo pueden aparecer coro 


Valor impreso 


ko 
+ ko o 
1234 


**x*123 


12345 9(3).9(2) 


$3$5,99 


123.45 


12345 
1234 


$123.45 
$1234 


SS$$5.99CR 
$$55.9(2)CR 
38$5.9(2)DB 


$789.12 
$4.78CR 
$4.78DB 
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último símbolo de una PICTURE y per- 
miten imprimir, a la derecha del núme- 
ro, el sufijo CR y el DB (si el número es 
negativo). En caso contrario, se impri- 
men dos espacios en blanco. 
Para aclarar los conceptos expuestos en la ta- 
bla de la página anterior, delante de cada sím- 
bolo se han indicado ejemplos. Para cada uno 
de ellos se ha indicado 


m el valor numérico a transferir en impresión 

m la PICTURE del campo de impresión desti- 
nado a albergarlo 

m elcorrespondiente resultado sobre el papel. 


Para tener una panorámica completa corres- 
pondiente a los tipos de campo sobre los que 
pueden operar las instrucciones que serán ana- 
lizadas a continuación, en la tabla de abajo se 
han indicado todos los símbolos utilizables de 
acuerdo con tres clases de datos que el Cobol 
gestiona. 


PROCEDURE DIVISION 


La exposición realizada hasta ahora ha ilustrado 
las funciones y las reglas sintácticas y de detalle 


de las tres primeras divisiones de un programa 
Cobol. A pesar de que la PROCEDURE DIVI- 
SION, cuarta y última división prevista por el Co- 
bol, sea la única en que el programador traduce 
el flujo lógico de las operaciones a efectuar so- 
bre los datos, no debe identificarse con el pro- 
pio programa. Es decir, el programador debe 
analizar el problema y aplicar las eventuales so- 
luciones metodológicas con una visión de 
conjunto que comprenda las cuatro divisiones 
del programa. 

Las instrucciones que constituyen la PROCE- 
DURE DIVISION pueden organizarse según tres 
niveles jerárquicos decrecientes. 

El nivel más bajo de grupo lo constituyen la fra- 
se o el período, o bien una serie de instruccio- 
nes realizables en secuencia, o bien una sola 
instrucción. Un agrupamiento de este tipo se 
encuentra, por ejemplo, en los puntos del pro- 
grama en que deben seguirse caminos diferen- 
tes según se verifique o no una determinada 
condición. Esta fase de decisión se sintetiza en 
el Cobol, como en la mayor parte de los len- 
guajes de programación, con la instrucción IF, 
cuyo caso será ilustrado ampliamente más ade- 
lante. Para ilustrar el significado de la palabra 
«frase», considérese el caso de la pág. 982, 
donde quiere calcularse el cociente entre la va- 


SIMBOLOS PARA LA DESCRIPCION DE LOS DATOS (PICTURE) 


Definición | Símbolos 
Clase del dato de clase operativos 


ALFANUMERICO 3 
ALFABETICO 


*Para definir un dato alfanumérico, junto a éste debe 


haber por lo menos otro símbolo de definición 
de clase (A, X, 9) 
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riable DIVIDENDO y la variable DIVISOR. Natu- 
ralmente, este cociente sólo puede calcularse si 
DIVISOR es diferente de O. Así pues, en el caso 
en que se verifique esto, se desea 


1 / calcular el resultado 

2 / desplazar el resultado en un campo destina- 
do a la impresión 

3 / presentar este campo en 'a impresora 

4 / imprimir el mensaje 'COCIENTE CALCULA- 
DO' en la consola del sistema. 


En este caso, las cuatro operaciones correspon- 
den a cuatro instrucciones Cobol diferentes y 


DIVISOR NCT 
COMFUTE 


EQUAL. 
RESUL.TAUO = 


constituyen una frase, puesto que deben ser 
realizadas en secuencia lógica como respuesta 
al producirse un suceso fijado. Con el fin de ha- 
cer familiares al lector las instrucciones del len- 
guaje, en la ilustración de abajo se ha indicado 
también el correcto detallado de la parte de 
PROCEDURE DIVISION correspondiente al es- 
quema. Debe observarse que una frase siem- 
pre se cierra con un punto. 

Un programa Cobol, como cualquier otro pro- 
grama, está constituido por una serie de instruc- 
ciones dispuestas en secuencia. Esta secuen- 
cia puede estar subdividida lógica y estructural- 
mente en un cierto número de párrafos, o bien 


TO O 
CIVTUENDO / DIVISOR 


MOVE RESULTADO TO CAMFO-IMEFRESTON 
DISPLAY CAMPO-IMPRIME UFON FRINTER 
xx COCTIENTE CALCULADO == * 
UPON CONSOLE. 


MISFLAY 
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RESULTADO 


E, 


El diagnóstico computerizado 

(2) 

La técnica tomográfica es con mucho la que 
más se ha beneficiado con la intervención en el 
campo biomédico. Los primeros aparatos tomo- 
gráficos aparecieron a principios de los años 
setenta y fueron aceptados inmediatamente co- 
mo un suceso revolucionario en la historia de la 
investigación biomédica. Por primera vez fue 
posible examinar con detalle una sección axial 
cualquiera del cuerpo de un paciente mediante 
imágenes con unas características de calidad y 


de resolución netamente superiores a las de las. 


radiografías ordinarias proporcionadas por las 
técnicas tomográficas tradicionales. 

La tomografía axial computerizada (TAC) se ba- 
sa en la reconstrucción con ordenador de una 
imagen global a partir de diversas imágenes ra- 
diográficas tomadas en diversas posiciones al- 
rededor del cuerpo del paciente. Un generador 


de rayos X de alta resolución se posiciona a lo 
largo de una circunferencia, orientado hacia el 
centro. En el punto de la circunferencia diame- 
tralmente opuesto se posiciona, a lo largo de un 
arco de unos 40* (correspondiente a la anchura 
del haz X emitido), una matriz de detectores. 
Cuando el cuerpo del paciente se interpone en- 
tre la fuente y el detector, la amplitud de la señal 
proporcionada en la salida de cada uno de los 
sectores que componen este último es propor- 
cional a la absorción selectiva realizada por el 
sector del cuerpo subtendido por el detector. La 
salida digitalizada producida por la matriz de 
detectores después de la recepción de un im- 
pulso X se memoriza y, después, se hace girar 
un cierto ángulo el conjunto generador/detector 
y se procede a la memorización de otra imagen. 
Cuando el sistema ha descrito un arco de 360 *, 
procesando numéricamente con el ordenador 
las imágenes memorizadas, es posible obtener 
una imagen de la sección del cuerpo explorada. 


Representación esquemática de conjunto de los diversos componentes de un sistema Tomoscan (de 1 a 9 sistema base): 
1. Consolas y monitor del operador; 2. Explorador con tubo de radiación y matriz de detección; 3. Soporte para el paciente; 
4. Unidad de enfriamiento con agua; 5. Armario del tetrodo; 6. Transformador de alta tensión; 7. Quadro de potencia; 8. Cuadro 
central; 9. Ordenador con microprocesador dedicado para la reconstrucción de la imagen; (de 10 a 21 opcionales): 10. Unidad 


21. Consola remota. 


de cinta; 11. Carro; 12. Disco de gran capacidad; 13. Plotter-Impresora electrostático; 14. Cámara fotográfica multiforme; 
15. Fotocámara polaroid; 16, Línea de enlace de datos; 17. Monitor en blanco y negro; 18. Monitor en color; 19. Unidad para 
cassettes magnéticas; 20. Segunda unidad para disco flexible (disponible en la consola del operador y en la consola remota); 


983 


Un aparato tomográfico típico es el Tomoscan, 
representado en la pág. 983. El generador de 
rayos X trabaja a tensiones de 100 a 120 kV y 
emite impulsos de 1 a 2 ms de duración. Según 
la resolución que se desea para la imagen, el 
número de impulsos emitidos durante una ex- 
ploración completa de 300 * puede variar de 
350 a 1200. La matriz de detección, constituida 
por unos 600 detectores englcbados en una cá- 
mara Única presurizada que contiene xenón a 


20 atmósferas, tiene un arco de cobertura de . 


43,5 ”. El tiempo necesario para producir una 
imagen de alta definición es de unos 21 s (3 a 
10 s son necesarios para completar la rotación 
de 160 9), pero existe la posibilidad de tener una 
visualización preliminar de la imagen, procesa- 
da en base a los registros correspondientes a la 
primera mitad de la exploración, después de 1 
s. La matriz de reconstrucción de la imagen está 
constituida por 256 x 256 pixels (elementos 
gráficos), y el espesor de las «lonchas» que se 
analizan puede variar de 1,5 mm a 12 mm 

Es claro que el tomógrafo computerizado puede 
utilizarse también como un aparato radiográfico 
normal para proyecciones normales y esta ca- 


detector de 
referencia _ 


Representación 
esquemática del 
generador de rayos X, del 
detector y del paciente en 
un aparato para la 
tomografía axial 
computerizada. Utilización 
óptima del detector 
obtenida mediante el 
desplazamiento radial del 
equipo móvil con respecto 
al campo de exploración. 
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racterística puede aprovecharse oportunamen- 
te para simplificar la gestión de todo el sistema. 
Efectivamente, el tomógrafo del ejemplo permite 
el posicionado automático del paciente bajo el 
scanner utilizando una imagen radiográfica fron-. 
tal producida de forma preliminar. La imagen 
frontal, presentada en el monitor, funciona como 
mapa de referencia para seleccionar el nivel 
exacto al cual se desea la imagen tomográfica. 
El Tomoscan puede realizar automáticamente 
en 6 segundos un escanograma frontal sobre 
un campo de 36 cm alrededor del punto intere- 
sado, detectanto durante la exploración la ima- 
gen radiográfica con tiras de 1,5 mm de longi- 
tud. Las tiras se recomponen en el monitor para 
formar la imagen frontal completa del campo y 
el operador puede seleccionar a continuación 
con el lápiz óptico la sección a evidenciar. El 
sistema de control computerizado del aparato 
procederá automáticamente al posicionado 
exacto del paciente. El Tomoscan también pue- 
de utilizarse para aprovechar al máximo su ca- 
pacidad de detección desplazando radialmente 
el equipo móvil con respecto al centro de rota- 
ción, como se indica en el gráfico de al lado. 
Esta disposición permite adaptar la geometría 
del sistema a las dimensiones de la sección in- 
teresada, tanto si se trata del tórax de un adulto 
o del cráneo de un niño, aprovechando siempre 
completamente la matriz de detección. Cuando 
el tubo de radiación se acerca al paciente, la 
corriente de alimentación se reduce. El proceso 
se realiza automáticamente, controlado por el 
detector de referencia. El control automático de 
exposición permite efectuar exploraciones muy 
detalladas con dosis integradas de radiación 
muy reducidas. 

La amplia gama de las prestaciones que un to- 
mógrafo puede ofrecer se debe en su mayor 
parte al software de gestión de todo el aparato. 
El sistema Tomoscan está controlado por un mi- 
croprocesador de 16 bits PC857, dotado de 
memoría RAM de 128 kbytes. Al ordenador hay 
conectadas dos unidades de disco de 5,6 Mby- 
tes cada una, que puede memorizar 30 imáge- 
nes y un disco flexible de 0,25 Mbytes, capaz 
de contener 10 imágenes. La memoria masiva 
está constituida por cinta magnética, que puede 
contener 300 imágenes de aproximadamente 
730 m cada una. 

El técnico en la consola principal está conecta- 
do permanentemente con el ordenador a través 
del teclado y del lápiz óptico. Con este último 


puede seleccionar la imagen eligiendo entre 
una gran serie de posibilidades. Por ejemplo, 
puede obtenerse una ampliación 2X o 4X apun- 
tando el lápiz a un punto cualquiera de la panta- 
lla, que se interpretará como el centro de la zona 
a ampliar; o bien puede reclamarse simultánea- 
mente en el monitor 4, 6 o 9 imágenes. Otra po- 
sibilidad es la de realizar un zoom en zonas cir- 
cunscritas, o construir imágenes sobre planos 
de sección oblicuos, procesando las imágenes 
detectadas sobre una serie de planos axiales 
adyacentes. La definición de la imagen puede 
mejorarse actuando a voluntad sobre la escala 
tonal del monitor. Las imágenes obtenidas y 
procesadas se registran en la memoria masiva 
del sistema, y pueden reclamarse en línea inclu- 
so desde consolas diferentes a la principal, la 
cual tiene la misión de permitir la continuidad 
operativa de los costosos aparatos de explora- 
ción, 

Además existe la posibilidad de difundir las imá- 
genes a través de circuitos de televisión y de 
producir copias sobre papel en tiempo real. La 


Philips 


Tomografía axial 
computerizada. 
Arriba, a izquierda: 
vista de conjunto del 
Tomoscan y de las 
consolas de 
maniobra y proceso. 
Arriba: 

posicionado 
automático del 
paciente. 

Allado: 

proceso del 
scanograma en 
consola remota. 


Philips 


inestimable utilidad de la tomografía axial com- 
puterizada no se detiene en la visualización de 
los detalles anatómicos. Las informaciones de- 
tectables también permiten planificar los trata- 
mientos radioterápicos, gracias a las medicio- 
nes de densidad y de absorción de los tejidos, 
obtenibles directamente de las imágenes regis- 
tradas por el tomógrafo. Así, la tecnología TAC 
permite hoy reducir al mínimo las dosis de ra- 
diación aplicadas a los pacientes sometidos a 
radioterapia, y que el ordenador gestione tam- 
bién los programas terapéuticos. 

Una nueva metodología de investigación bio- 
médica que permite revolucionar todavia más el 
sector del diagnóstico automatizado es la tomo- 
grafía de resonancia magnética nuclear. La re- 
sonancia magnética nuclear (NMR del inglés 
Nuclear Magnetic Resonance) es un fenómeno 
que interesa a los núcleos atómicos de algunos 
elementos, entre ellos el hidrógeno. Este último 
es particularmente importante a fines médicos, 
dado que las moléculas de agua (H20) están 
presentes en todos los tejidos vivientes. 
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El núcleo de un átomo de hidrógeno gira alrede- 
dor de su propio eje, y como está dotado de 
carga positiva, genera alrededor de él un cam- 
po magnético orientado ortogonalmente a la di- 
rección de rotación (ver gráfico de arriba). Dada 
una cierta cantidad de hidrógeno, los núcleos 
que lo componen generan campos magnéticos 
orientados estadísticamente en todas las direc- 
ciones (a), pero si se genera un campo magné- 
tico externo, todos los núcleos tenderán a girar 
de manera que su eje de rotación se alinee con 
las líneas de fuerza del campo magnético apli- 
cado (b). Como están girando, los núcleos se 
comportan como minúsculos giróscopos y, por 
tanto, tienen un movimiento de precesión alre- 
dedor de la dirección del campo magnético ex- 
terno: cuanao este último es homogéneo, todos 
los núcleos oscilan a la misma frecuencia. Si 
además del campo se aplica desde el exterior 
una excitación magnética pulsante de la misma 
frecuencia (estamos en el campo de las radio- 
frecuencias y, por tanto, será una señal radio), el 
eje de los núcleos en precesión tenderá a dis- 
ponerse según un cierto ángulo con respecto al 
campo extemo (c), y el movimiento de prece- 
sión quedará perturbado. Al cesar el impulso, 
los núcleos tienden a volver al estado inicial y 
emiten energía en forma de débiles señales ra- 
dio a la frecuencia de precesión (d). La intensi- 
dad y la duración de la señal emitida dan una 
indicación sobre la densidad de los átomos sen- 
sibles a dicha frecuencia que hay en un cierto 
punto del espacio, y este comportamiento pue- 
de aprovecharse para el análisis de los tejidos. 
El fenómeno de la resonancia magnética nu- 
clear fue descubierto hace unos setenta años, 
pero sólo en 1977, en EE.UU., se intentó aprove- 
charlo para evidenciar la densidad de una vér- 
tebra. La síntesis de la imagen necesitó un tiemn- 
po de proceso de cuatro horas y media y el re- 
sultado fue uma mancha oscura en un mar de 
niebla. Sin embargo, desde aquel momento, las 
principales industrias electrónicas conectadas 
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Representación 
esquemática 
del mecanismo 
de generación 
de la 
resonancia 
magnética 
nuclear. 


con el sector biomédico se preocuparon de 
mejorar el método hasta hacer posible su apli- 
cación extensiva. Los aparatos actualmente rea- 
lizados tienen todavía una situación eminente- 
mente experimental, pero se está procediendo 
rápidamente a las primeras realizaciones co- 
merciales. Las principales ventajas de la meto- 
dología NMR que empujan a perseguir esta vía 
son la absoluta no invasividad de las técnicas 
de exploración y el hecho de que no se utilizan 
radiaciones lonizantes. La imagen se deriva de 
las señales radio emitidas por las sustancias 
que componen el organismo. La reconstrucción 
de las imágenes se efectúa con técnicas del to- 
do análogas a las ya puestas a punto en el TAC, 
y esto permite la inmediata extensión de todo el 
software de aplicación desarrollado para este 
último. Además se ha aclarado suficientemente 
que las aplicaciones de los campos'magnélti- 
cos necesarios para utilizar esta nueva técnica 
de exploración no tiene contraindicaciones y no 
presenta ningún efecto biológico. También se 
espera mucho de la posibilidad potencial que 
tiene la tomografía NMR de resolver y diferen- 
ciar los tejidos blandos. 

Actualmente, Philips está perfeccionando una 

serie denominada Gyroscan, cuyos elementos 

fundamentales son: 

— el imán principal, de tipo resistivo o super- 
conductor; 

— la batería de generadores de radiofrecuen- 
cia, que tienen funciones de excitación; 

— la batería de detectores de radiofrecuencia, 
que tienen la función de detectar las señales 
de respuesta; 

— el espectómetro universal, que sirve para el 
análisis de las señales de radiofrecuencia de 
respuesta, 

— el ordenador y los periféricos. 

Las notables ventajas enumeradas y la buena 

calidad de las imágenes producidas permiten 

esperar con fundado optimismo los futuros de- 
sarrollos de esta nueva técnica. 


en agrupaciones más o menos grandes de ins- 
trucciones. Cada párrafo está identificado con 
un nombre perforado a partir del margen A (co- 
lumna 8) y se cierra con un punto. La división en 
párrafos permite por un lado la posibilidad de 
reentrar en determinados puntos del programa 
mediante instrucciones de salto condicionado y, 
por otro, realizar todas las instrucciones en un 
cierto párrafo simplemente asociando el nom- 
bre al verbo PERFORM. 

El nombre de cada párrafo lo crea el programa- 
dor mediante una combinación de 30 (máximo) 
caracteres alfabéticos y números, más el signo 
menos con función de trazo de unión. 

El Compilador considera terminado un párrafo 
cuando encuentra el nombre de otro párrafo. 
A su vez, los párrafos pueden agruparse en una 
estructura de orden superior que es la sección 
(SECTION). 

El nombre de las secciones se uniformizan con 
las mismas reglas válidas para los nombres de 
los párrafos, pero deben ir seguidos de la pala- 
bra reservada SECTION y del punto. Cada sec- 
ción termina al final del programa, o donde se 
inicia otra. 


A continuación se indican algunos ejemplos de 
nombres de párrafos y de secciones 


INICIALIZA. (párrafo) 
CALCULA-ITE SECTION. (sección) 
A 10-SUMA. (párrafo) 
340-LEE-FILE. (párrafo) 
ESCRIBE SECTION. (sección) 


Obsérvese que los nombres, tanto de párrafos 
como de secciones, deben contener al menos 
un carácter alfabético. 

La estructura general de la PROCEDURE DIVI- 
SION de un programa Cobol genérico organiza- 
da en secciones y párrafos es la siguiente: 


PROCEDURE DIVISION. 
PRIMERA SECTION. (sección) 
INICIALIZA. (párrafo) 
pea INSTRUCCIO- 
E Mis 
ABRE-FILES. (párrafo) 
SEGUNDA SECTION. — (sección) 
LEE-FILE. (párrafo) 
PROCESA. (párrafo) 
TERCERA SECTION. — (sección) 
IMPRIME. (párrafo) 
CIERRA-FILE. (párrafo) 
A (párrafo) 
STOP RUN. 


Obsérvese que cada sección debe contener al 
menos un párrafo, y que el nombre de una sec- 
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ción debe ir seguida del nombre de un párrafo; 
es decir, es erróneo escribir por ejemplo, 


PRIMERA SECTION. (sección) 
MOVE OTO A. (instrucción) 
puesto que debe escribirse 
PRIMERA SECTION, (sección) 
- INICIALIZA. (párrafo) 
MOVE O TO A. (instrucción) 


Del mismo modo, cada párrafo debe contener 
al menos una instrucción. Como es posible ob- 


servar en los ejemplos indicados hasta ahora, 
los nombres de los párrafos o de las secciones 
tienen todos un evidente significado autoexpli- 
cativo. La asignación de los nombres de forma 
significativa, o bien de manera que el propio 
programador o un eventual lector pueda intuir la 
función de proceso, no constituye una regla del 
Cobol, pero contribuye a facilitar la lectura y la 
manutención de cada programa. 


Ejemplo de estructuración de una 
PROCEDURE DIVISION 


Supóngase que hay que escribir un programa 
que lea de un file dos tipos de fichas diferentes, 


DIAGRAMA DE FLUJO 


E- 4-8 
y 


Flujo de los datos 
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ESTRUCTURACION DE UNA PROCEDURE DIVISION. 
DESCRIPCION DE LOS FILES FICHAS DE ENTRADA 


os HABER 


GE 7110). 


DESCRIPCION DE LA LINEA DE IMPRESION 


iS 


PIC ea VAL.OR 'NOMBRE'. 


SALDO-L.INEA 


E PA ' 


DESCRIPCION DEL RECORD DE SALIDA 


PIE X (30) . 


A y B, con las descripciones indicadas en el lis- 
tado de arriba. 

Además supongamos que por cada tarjeta de 
tipo A leída debe crearse e imprimirse la línea 
descrita en el listado del centro, mientras que, 
para cada tarjeta de tipo B, debe prepararse y 
escribirse en el file el record descrito en el lista- 
do de arriba. El diagrama de flujo del programa 
se ha indicado en la página anterior, junto con la 
diagramación del flujo de los datos. 

El proceso de las fichas de tipo A prevé las si- 


guientes operaciones: 


1/Calcular en un campo de trabajo, 
DISPONIBLE-SALDO, la diferencia entre DE- 
BE y HABER 

2/Situar el valor así obtenido en el campo 
SALDO-LINEA 

3 / Situar en los correspondientes campos de 
LINEA todos los otros campos de la FICHA-A 

4 / Imprimir la línea así compuesta. 


En cambio, para el proceso de las fichas de tipo 
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B, las operaciones serán las siguientes: 


1 / Calcular el resultado de la fórmula en el cam- 
po de trabajo DISPONIBLE-TOTAL 


SALDO + INTERES — GASTOS 


2/Colocar el valor obtenido en el campo 
TOTAL-RECORD 

3 / Colocar el campo NOMBRE-APELLIDO en 
NOMBRE-RECORD 

4 / Escribir el record en el file FILE-OUT. 


Es necesario indicar que en el desarrollo de es- 
te ejemplo aparecen instrucciones y verbos to- 
davía no tratados, aunque su interpretación es 
inmediata; sin embargo, este ejemplo sólo tiene 
la función de indicar las ventajas asociadas al 
uso de los párrafos y de las secciones en el 
planteo de un programa. La PROCEDURE DIVI- 
SION del programa examinado podría estructu- 
rarse como en el listado de abajo. 

No obstante, escribir un programa de esta ma- 
nera comporta diversos inconvenientes: 


m El Compilador podría no conseguir analizar 
correctamente frases tan largas como las 
escritas para cada rama de la instrucción IF. 

W Para programas de complejidad superior a 
la del descrito, el recurso de un número ele- 
vado de saltos condicionados o incondicio- 
nados (GO TO) es posible que no haga evi- 
dente de forma inmediata la determinación 
de ciclos infinitos indeseados. 

m Se reduce drásticamente la posibilidad de 
intuir rápidamente las funciones de una de- 
terminada rama del programa y, en conse- 
cuencia, del propio programa. 


A fin de evitar los inconvenientes citados, la 
PROCEDURE DIVISION de dicho programa 
puede deltallarse recurriendo a las secciones, 
como se muestra en el listado de las págs. 991 
y 992. 

Como puede observarse, la PROCEDURE DIVI- 
SION queda ahora reducida a las pocas líneas 
de la PRIMERA SECTION, de cuya lectura es 
fácil intuir las funciones y los enlaces de las di- 
versas ramas que sigue al programa. Todas las 


ESTRUCTURACION DE UNA PROCEDURE DIVISION (EJEMPLO 1) 


PROCEDURE PIVISION. 
INICIO. 
OPEN INFUT FICHAS. 
OFEN OUTPUT IMPRESION. 
OFEN OUTFUI FILE-O0UT., 
LEE-FICHA. 
READ FICHAS 
AT ENL 
CLOSE “FICHAS 
CLOSE IMPRESION 
CLOSE FILE-OUT 
GO TO FIN. 
1F TIPO-FICHA 15 EQUAL. TO 'A' 
MOVE FICHA TO FICHA-A 


COMFUTE DISPONIBL E- SALDO = HARER - DEBE 
MOVE DISPONIBLE-SALJO TO SAL.MO-LINEA 


MOVE NOMBRE TO NOMBRE-L. INEA 
MOVE FECHA-NACIMIENTO TO FECHA-LINEA 
MOVE TIEKE TO DEBE-L INEA 

MOVE HAKER TO HARER-LINEA 


WRITE LINEA 
G0 TO LEE-FICHA. 

1F TIPO-FICHA 15 EQUAL TO 'R' 
MOVE FICHA TO FICHA-E 


COMFUTE INISPONIBLE- TOTAL += SALDO + INTERES - GASTOS 
MOVE DISPONIBLE TOTAL TO TOTAL-RECORU 
MOVE NOMERE-APELLIDO TO NOMBRE -RECORE: 


WRITE RECORTE 
GO TO LEE-FICHA. 
FIN. 
STOF RUN, 
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ESTRUCTURACION DE UNA PROCEDURE DIVISION (EJEMPLO 2) 


PROCENURE DIVISION 
PRIMERA SECTION. 
INICIO. 
PERFORM ARRE-FILES. 
PERFORM FPRIMERA-LECTURA. 
PROCESA. 
IF. — TIPO-FICHA 18 EQUAL TO 'A' 
PERFORM PROCESA-A 
WRITE LINEA. 
IF TIFPO-FICHA 18 EQUAL TO 'k' 
PERFORM PROCESA-E 
y WRITE RECORD-E, 
PERFORM 1LEE-FICHA. 
GO TO PROCESA. 


kk x*Xox 


ABRE-FTIL.ES SECTION. 

ARRE. » 
OFEN INPUT FICHAS. 
OPEN OUTFUT IMPRESION. 
OPEN OUTPUT FILE-0UT, 

FIN-ABRE, EXIT. 


*x**Rx*Xxo 


CIERRA-FILFS SECTION. 
CTERRA. 
CLOSE FICHAS. 
CLOSE IMPRESTON. 
CLOSE FILE-0UT. 
FIN-=CIERRA. EXIT. 


xXxk*Xox 


FRIMERA | FETURA SECTION. 
PRIMERA-FICHA, 
READ FICHAS 
AT ENL 
DISPLAY '*%* FILE FICHAS VACIO e" 
UPON PRINTER 
PERFORM ETN-FPROCESA. 
FIN-PRIMERA-=FICHA. EXIT. 


KK x*ox 


FROCESA-A SECTION. 

FROC-=FICHA+=A, 
MOVE FICHA TU FICHA<A, 
COMPUIE DITSFONTIRLE-=SALMO <= HABER -— TERE, 
MOVE DISPONIBLE - SALDO TO SAL.DO-LINEA. 


MOVE. NOMERE TO NOMERE-LINEA. 
MOVE FECHA NACIMIENTO TO FECHA-LINEA. 
MOVE DEHE TO DERKE-LINEA. 
MOVE HABER TO HABER-LINEA. 


FIN-FROC-FICHA+A, EXIT, 
* 
> 


* 
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* 
* 
PROCESA-R SECTION, 
PROC-=FICHA-—E. 
MOVE FICHA TO FICHA-B. 


COMPUTE UISFONIRILE-TOTAL = SALDO + INTERES -— GASTOS. 
MOVE DISFONIBLE-TOTAL TO TOTAL-RECORI. 
MOVE NOMBRE-APELLIDO TO NOMBRE-RECORD, 


FIN-PROC-FICHA-B, EXIT. 


E ES 


LEE-FICHA SECTION, 
OTRAS-FICHAS. 
REAN FICHAS 
AT ENT 
PERFORM FIN-FROC. 
FIN-OTRAS-FTCHAS. EXTT. 


*k*xx*xo* 


FIN-PROC SECTION, 
FIN. 
PERFORM CIERKA-FILES. 
DISPLAY 'xxx* FIM FROCESO xxx" 
UFON PRINTER. 
SIUF RUN, 


*Kkx*o 


demás secciones, escritas después de la PRI- 
MERA SECTION, en realidad se reclaman y rea- 
lizan cada vez mediante el verbo PERFORM. 
Se volverá ampliamente sobre el uso de la ins- 
trucción PERFORM y sobre las modalidades de 
su utilización. 


Las instrucciones del Cobol 


Antes de analizar en detalle el lenguaje Cobol 
deben conocerse algunas convenciones y res- 
tricciones impuestas al programador. 

El conjunto de caracteres admitidos por el Com- 
pilador está constituido por todas las letras del 
alfabeto inglés desde la A a la Z, por todos los 
números naturales de O a 9 y por un conjunto 
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restringido de caracteres especiales, a los cua- 
les el Compilador asocia los significados indica- 
dos en la tabla de la derecha. 

El Cobol, por ser un lenguaje de tipo descriptivo, 
utiliza palabras enteras y abreviadas de la len- 
gua inglesa, a las que están asociadas determi- 
nadas acciones del Compilador. Estas palabras 
(cerca de 250) no las puede utilizar el progra- 
mador de forma diferente a la prevista por la sin- 
taxis del lenguaje, ni puede alterarse su ortogra- 
fía con la omisión o la inserción de caracteres. 
Por esto se llaman palabras reservadas. Por 
ejemplo, la palabra reservada SOURCE-COM- 
PUTER no puede escribirse SOURCE COMPU- 
TER o SOURCECOMPUTER, puesto que el 


Compilador no la reconocería, ni el programa- 
dor puede escribir un programa en que la pala- 
bra SOURCE-COMPUTER se utilice como nom- 
bre de una variable o de un file. El siguiente 
ejemplo muestra el uso erróneo de la palabra 
reservada DATA, utilizada como nombre de un 
campo definido por el programador: 


01 DATA. 
05 DIA PIC 99. 
05 MES PIC 99. 
05 AÑO PIC 99. 


A continuación se indica otro ejemplo en el que 
se presentan algunas palabras reservadas 


Para hacer después discursivo el lenguaje, en 
algunas secuencias de caracteres de uso más 
frecuente se han asociado palabras reservadas 
particulares: las constantes figurativas. Sus 
significados se indican en la tabla que sigue, 
donde se han encerrado en la misma casilla los 
formatos equivalentes de dicha constante. 


Caracteres equivalentes 


Uno o más ceros numéricos, 
o también uno o más carac- 
teres O según el contexto. 


PROCEDURE 


SPACE Uno o más espacios 
SPACES (blank). 


Uno o más caracteres con el 
peso menor de la secuencia 


del código utilizado. 


Uno o más caracteres con el 
pesa mayor de la secuencia 
del código utilizado. 


Una o más comillas (”). 


Uno o más caracteres 'ca- 
rácter-deseado' hasta el lle- 
nado del campo receptor, 


Considérese un campo genérico (de nombre 
CAMPO) que pueda albergar hasta seis carac- 


INICIO. [SECTION] 
INICIA. | LOW-VALUE 
LOW-VALUES 

INPUT]  FILE-N. 

OPEN INPUT FICHAS. ANE 
OPEN [OUTPUT]  FILE-OUT. HIGH-VALUES 
PERFORM] CONTROLA-FICHAS. 
a ER 
[so] FIN. 
PROCESA. que a 
FILEIN [INTO]  REC-IN ad 

ATEND 

FIN. 

CLOSE] FILE-IN 

FILE-OUT teres. 


Símbolo Descripción 


Punto 

Coma 

Punto y coma 
Acento 
Paréntesis 


Asterisco 
Barra (slash) 
Dos asteriscos 
Igual 

Mayor 

Menor 
Paréntesis 


AVI. 1 + 


mc 
=— 


Significado para el Compilador 


Fin de un período 

Separador de una serie de operandos 
Separador de una serie de cláusulas 
Delimitador de una cadena de caracteres 
Delimitador de índices 

Suma 

Resta 

Multiplicación 

División 

Elevación a potencia 

Igual 

Mayor 

Menor 

Delimitador de expresiones. También 
controla la secuencia de ejecución de 
operaciones lógicas y aritméticas. 


Categoría del símbolo 


Punteado 
Punteado 
Punteado 
Punteado 
Punteado 
Aritmético 
Aritmético 
Aritmético 
Aritmético 
Aritmético 
Aritmético 
De condición 
De condición 
De condición 
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En la tabla de abajo se ha ilustrado el efecto de 
la transferencia en CAMPO de las constantes fi- 
gurativas relacionadas. 

Análogamente a lo que sucede en los lenguajes 
humanos, cada acción que el calculador debe 
realizar se pide mediante verbos. Cada verbo 
que encuentra el Compilador en el programa 
fuente se traduce en una secuencia de instruc- 
ciones en lenguaje máquina aptas para actuar 
sobre los componentes hardware llamados a 
causa de dicha instrucción. Se intuye que todos 
los verbos del Cobol son palabras reservadas, 
que el programador no puede utilizar si no es en 
la forma sintáctica y para las finalidades especí- 
ficamente previstas. 

Los verbos del Cobol pueden subdividirse en 
cinco categorías, según el tipo de función que 
pueden realizar. 
Verbos de l/O. La notación l/O es la abre- 
viatura de Input/Output. A 
esta categoría pertenecen 
los verbos que permiten 
tansterir datos de y hacia 0i- 
ferentes unidades periféri- 
cas del calculador: 

OPEN 

CLOSE 

READ 

WRITE 

ACCEPT 

DISPLAY 


Verbos 
aritméticos. 


Permiten actuar sobre cons- 
tantes y campos numéricos 
con las operaciones funda- 
mentales de la artimética: 
COMPUTE 

ADD 

SUBTRACT 

MULTIPLY 

DIVIDE 


Verbos de 
transferencia O 
de manipulación 
de los datos. 


Permiten el desplazamiento 
del contenido de un campo, 
elemental o compuesto, de 
una posición de memoria a 
otra (transferencia), la com- 
posición de más campos en 
un campo único y viceversa, 
así como operaciones parti- 
culares sobre un determina- 
do dato: 

MOVE 

INSPECT 

STRING 

UNSTRING 


Verbos para el Son verbos que imprimen a 
control de la la ejecución del programa 
secuencia de las un proceso diferente al del 
instrucciones. estrictamente secuencial que 

refleja la disposición de las 

instrucciones en el progra- 

ma fuente: 

GO TO 

PERFORM 

EXIT 

STOP 


Verbos 
condicionales. 


Permiten analizar la verifica- 
ción o no de un determinado 
suceso: 

IF 

SEARCH 


Verbos de 1/0 


Estos verbos preceden a la transferencia de da- 
tos entre la memoria central del procesador y 
las unidades externas, como lectores de fichas, 
impresoras, unidades de cinta y disco. Para po- 
der trabajar sobre estas unidades mediante ver- 
bos o preposiciones de input/output, es necesa- 
rio que el programador haya declarado al Com- 


TRANSFERENCIA DE CONSTANTES FIGURATIVAS 


MOVE ZEROS 

MOVE SPACES 
MOVE LOW-VALUES 
MOVE HIGH-VALUES 
MOVE QUOTES 
MOVE ALL 'x' 
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TO CAMPO. 
TO CAMPO. 
TO CAMPO, 
TO CAMPO. 
TO CAMPO. 
TO CAMPO. 


| | 
A A ANA 4 A 
dl A | ¿ 
—— - - 


pilador que en el curso del proceso accederá a 
los periféricos. Ya se ha indicado que a esta tun- 
ción le precede la INPUT-OUTPUT SECTION de 
la ENVIRONMENT DIVISION, en la que se han 
declarado tanto los nombres de los files como 
los dispositivos en que residen. Sin embargo, en 
esta sección, no se proporciona ninguna infor- 
mación acerca de la modalidad con que el pro- 
grama accederá a los files. Es decir, lo escribe 
en la ENVIRONMENT DIVISION, 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT FILE-A ASSIGN TO DISC FILE-A 


no declara si el FILE-A se utilizará en el curso 
del programa en lectura o en escritura. Recor- 
demos que la ENVIRONMENT DIVISION, al ir 
delante de la definición de las interaciones con 
el procesador usado, puede tener formatos dife- 
rentes de calculador a calculador.* 

Las únicas excepciones a estas reglas son los 
files asignados al lector de fichas (CARD- 
READER), a la impresora (PRINTER) y al perfo- 
rador de fichas [CARD-PUNCH), para los que 
es implícita la modalidad de uso. Efectivamente, 
es obvio que un lector de fichas puede utilizarse 
exclusivamente como unidad de entrada, y una 
impresora, o un perforador de fichas, sólo como 
unidad de salida. 

Para hacer clara la serie de operaciones que 
debe efectuarse sobre un file Cobol para utilizar 
su contenido, es posible hacer referencia al si- 
guiente ejemplo. 

Supóngase que se quiere actualizar la propia 
agenda (FILE = AGENDA) que está en la cas- 
sette de las anotaciones (UNIDAD = ANOTA- 
CIONES). La primera operación a hacer será 
naturalmente la de abrir la agenda; la siguiente 
operación será la de consultar (OUTPUT) las no- 
tas del día. En el momento en que se abre la 
agenda ya se tendrá en mente la realización de 
esta operación (ABRIR PARA ESCRIBIR = 
OPEN OUTPUT). 

Terminada la actualización se cerrará la agenda 
(CERRAR AGENDA = CLOSE AGENDA). 

En el intento de mantener el paralelo con el 
ejemplo indicado, supóngase que el procesa- 


* En este caso se ha utilizado el formato típico de los siste- 
mas UNIVAC de la serie 1100 (Sperry Corporation), así co- 
mo para una inmediata interpretación respecto a los otros 
sistemas. 


dor está dotado de una unidad llamada ANOTA- 
CIONES, en este caso, la secuencia de opera- 
ciones escritas podría traducirse en el listado de 
la página siguiente. 


Apertura y cierre de los files: 
los verbos OPEN y CLOSE 


Antes de continuar es interesante ilustrar cuál es 
el mecanismo activado por las operaciones de 
apertura y cierre de uno o más files en el interior 
de un programa. 

En el momento en que un programa en fase de 
ejecución encuentra la instrucción OPEN, deja 
disponible en memoria el área (buffer) reserva- 
da a las operaciones en que el file controla o 
crea as «labels» de cabecera y posiciona la * 
unidad física en la que reside el file al inicio del 
mismo. 

Debe subrayarse que la operación de apertura 
de un file posiciona la unidad en el primer re- 
cord del file, pero no deja disponible su conteni- 
do. Para poder transferir de o hacia el file el con- 
tenido del record es necesario leerlo o escribir- 
lo, o bien especificar explícitamente la acción 
mediante el verbo READ o WRITE. 
Generalmente, a cada programa se le asigna 
una región de memoria cuya extensión no com- 
prende las áreas reservadas a las acciones de 
lectura y escritura en files declarados en la EN- 
VIRONMENT DIVISION y descritos en la DATA 
DIVISION. 

Estas áreas se alojan en memoria en el acto de 
la apertura del file, 

Por este motivo puede suceder que durante la 
ejecución de un programa, éste termine en error 
por violación de la capacidad de memoria sólo 
durante la operación de apertura de un file, Co- 
mo un file puede abrirse o cerrarse un número 
cualquiera de veces durante el mismo progra- 
ma, es preferible, si no intervienen exigencias 
de proceso particulares, cerrar el file inmediata- 
mente después de su utilización. 

Como ya se ha dicho, la apertura de un file pre- 
supone también la declaración de la modalidad 
en que se utilizará dicho file. Es decir, el Cobol 
permite abrir un file haciéndolo accesible a ope- 
raciones de: 


Lectura (INPUT) 
Escritura (OUTPUT) 
Lectura-escritura (1-0) 
Puesta en fila (EXTEND) 
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EJEMPLO DE APERTURA DE UN FILE 


IDENTIFICATION DIVISION. 
PROGRAM-10, AGG-AGENINA. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER, 
ORJETC-COMPUTER: .10........ 
INPUT-O0UTPUY SECTION. 
FILE-CONTROL . 

SELECT AGENMA ASSIGN TO ANOTACIONES. 
DATA DIVISION. 
FILE SECTION. 
FO AGENIIA 
LABEL RECORD STANDARD. 
NOTA. 
9 


01 


hrs sao 


xx Kx*Xoxh 


PROCEDURE DIVISION. 
PRIMERA SECTION. 
ARRE-FILE, 
OFEN OUTFUI AGENIMA. 
PERFORM ESCRIBE-NOTA, 
CLOSE AGENDA. 
STOF RUN, 


*kKx*kox«u 


ESCRTRE-=NOTA SECTION. 
ESCRIHEE, 


........ ...ss 


o... rss. 


ESCRIKE NOTA. 
FIN-ESCRITURA. EXIT. 
* 
x 


Utilización en lectura: OPEN INPUT. El forma- 
to de la instrucción OPEN en esta modalidad se 
indica en la tabla de la página siguiente. 
Las cláusulas opcionales REVERSED y WITH 
NO REWIND se refieren a files residentes en cin- 
ta. Escribiendo simplemente 


OPEN INPUT FILE-A. 


cualquiera que sea la unidad a que está asigna- 
do el file FILE-A se tiene la apertura del file y el 
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posicionado de la unidad en el primer record. 
En el caso de un file asignado a la unidad de 
cinta, la cinta se rebobina hasta su punto de 
partida (LOAD POINT), a menos que se utilice 
una de las dos cláusulas. Usando la cláusula 
REVERSED se tiene el posicionado de la unidad 
en el último record del file, de manera que pue- 
da leerse en sentido directo, mientras la cláusu- 
la WITH NO REWIND impide el rebobinado de 
la cinta. A continuación se indicará un ejemplo 
correspondiente al uso de las dos cláusulas. 


Utilización en escritura: OPEN OUTPUT. La 
apertura de un file en escritura se obtiene con el 
formato de la instrucción OPEN indicado al pie 
de esta página. Las funciones de la cláusula 
WITH NO REWIND es la misma descrita para la 
lectura. Obsérvese que abrir un file en OUTPUT 
significa predisponer el periférico a escribir par- 
tiendo del primer record del file: el eventual con- 
tenido del record será cubierto por las siguien- 
tes operaciones de escritura (WRITE). 

A título de ejemplo, supóngase que debe leerse 
el file F1-CINTA en cinta para copiar su conteni- 
do, record por record, sobre el file F-DISCO resi- 
dente en disco. Este último file deberá copiarse 
seguidamente en cinta como F2-CINTA a conti- 
nuación de F1-CINTA. Supongamos además 
que el file F2-CINTA deba tener como primer re- 
cord el último record de F1-CINTA. El programa 
podrá organizarse y detallarse como se muestra 
en la pág. 998 y en el listado de la pág. 999. 
Las secciones contenidas en el programa no se 
han declarado, puesto que implican el uso de 
los verbos READ y WRITE (que todavía no se 
han descrito), pero su nombre es indicativo de 
la función que realizan. 

Habiendo abierto el file F1-CINTA en la modali- 
dad INPUT con la cláusula REVERSED, la pri- 
mera operación de lectura se realizará en el últi- 
mo record del file. Este record se lee y se salva 
en un área de trabajo (DISPONIBLE-REC-F1) de 
la que después se transferirá al file F2-CINTA 
como primer record. 

Como debe copiarse todo el F1-CINTA en F- 
DISCO ahora es necesario disponer del file F1- 
CINTA desde su primer record; es decir, debe 
rebobinarse la cinta hasta el LOAD POINT. 
Para obtener esto es suficiente cerrar el file y 
reabrirlo sin añadir otras cláusulas (CLOSE, F1- 
CINTA, OPEN INPUT F1-CINTA). En cambio, la 
instrucción OPEN OUTPUT F-DISCO abre el file 


F-DISCO y lo habilita para reservar datos en es- 
critura. 

La operación de lectura de F1-CINTA y de escri- 
tura en F-DISCO la efectúa, record por record, 
la SECTION LEE-F1-ESCRIBE-F. 

Después de haber leído F1-CINTA hasta el final, 
la unidad se posiciona sobre el carácter de fin- 
file de F1-CINTA. Como el programa ahora de- 
be copiar el contenido de F-DISCO en F2- 
CINTA en posición consecutiva a F1-CINTA, de- 
be cerrar F1-CINTA sin rebobinar la cinta y, por 
tanto, abrir F2-CINTA. Esto se obtiene añadien- 
do la cláusula WITH NO REWIND a las dos ins- 
trucciones citadas. 

La última parte del programa es de interpreta- 
ción inmediata, puesto que las operaciones su- 
cesivas son: 


m copia el campo DISPONIBLE-REC-F?, en el 
que se salva el contenido del último record 
de Fi-CINTA como primer record de F2- 
CINTA. 


"copia el contenido de F-DISCO en F2-CINTA 
(PERFORM LEE-F-ESCRIBE-F2) record por 
record hasta el final del file 


m cierra todos los files todavía abiertos y rebo- 
bina la cinta (CLOSE F-DISCO, F2-CINTA). 


Utilización en lectura-escritura: OPEN |-O 
El file direccionado debe residir en disco y en él 
pueden efectuarse tantas operaciones de lectu- 
ra como de grabación. El formato es: 


J3 nombre-de-file 


Puesta en fila: OPEN EXTEND. Mediante esta 
instrucción el file, que puede residir tanto en dis- 
co como en cinta, en el acto de la apertura se 
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EJEMPLO DE USO DE LOS VERBOS OPEN Y CLOSE 


La cinta corre hasta el pr El file está cerrado, 
principio del último récord INTA pero la bobina 

; queda posicionada 
después del último 
record escrito 


Se inicializa el file 
F2-CINTA en la 
posición en que 
se para la bobina 
» Copia el contenido 
El contenido del último del área de 
record de F1-CINTA se trabajo en que se 
salva en un área de trabajo ha salvado el 
último record de 


F1-CINTA 


La cinta se rebobina 
completamente y deja 
disponible el primer record 
de F1-CINTA. Además se 
ubican las áreas de salida 


y para F-DISCO 
A tin file 


A fin file cua a a 
A A O A A A A A 


pd 


y 


La cinta 
se rebobina 
completamente 


Se imprime 

un mensaje de 
«Copia 
terminada» 


o 


EJEMPLO DE USO DE LOS VERBOS OPEN Y CLOSE 


IDENTIFICATION DIVISION. 
PROGRAM-=1T1, COPIA, 
REMARKS. ESTE PROGRAMA ES UN EJEMPLO DE USO 
DE LAS INSTRUCCIONES OPEN Y CLOSE. 
ENVIRONMENT DIVISION. 
INPUT-OUTFUT DIVISION. 
FILE-CONTROL.. 
SELECT F1-CINTA ASSIGN 10 (AFE Fi, 
SELECT F2-CINTA ASSIGN TO TAPE F2, 
SELECT F-D1SCO ASSIGN 710 DISC F-DISCO, 
DATA UIVISION. 
FILE SECTION. 
FD” Fi-CINTA 
LABEL RECORD STANDIARO, 
01 - REC-=F1-CINTA. 
OÍ rs rorocrorrovo 
OÍ sir ro 
FO F2-CINTA 
LABEL RECORO STANIDDARI. 
01  REC-F2-CINTA. 
ON 
OÍ ro omirr rr ro 
Fl F-DISCO 
LAKEL RECORU STANIARE, 
01  REC-F-NISCO. 
O 
OÍ cs rmmmmecrrcor o 
x 
VORKING-STORAGE SECTION. 
01. DISPONTOL.E-REC-FI PIC X(...). 
» 
PROCEDURE DIVISION, 
PRIMERA SECTION. 
INICIO. 
DISPLAY '*x* INICIO COPTA Xx" UPON PRINTER. 
OFEN INFUT FI-CINTA REVERSEO, 
PERFORM LEE-UL.TIMO-=REC=F1. 
CLOSE Fi-CINTA. 
OFEN INPUT F1-CINTA, 
OPEN OUTFUT F-DISCO. 
PERFORM LEE-F1-ESCRIBE-F, 
CLOSE FI CINTA WITI NO REMINT. 
CLOSE F-DISCO. 
OPEN F2-D1SC0 WITH NO REVIINIL. 
OFEN INFUT F-TISCO, 
PERFORM COPIA-ULTIMO-REC-=F1, 
PERFORM LEE-=F-ESCRIBE-F2. 
CLOSE F-BISCO, 
CLOSE F2-CINTA. 
DISPLAY '*x* COFILA TERMINADA *x' 
UPON PRINTER. 
STOF RUN, 


== momo SECCIONES ==. === === 


LEE-ULTIMO-REC=F1 SECTION, 
ULTIMO-REC. 


ULTIMO-REC-EX, EXIT. 

« 

LEE-F1-ESCRIBE-F SECTION. 
Fi =F: . 


Fi-F-EX, EXIT. 


* 

COFIA-ULTIMO=REC=F1 SECTION. 
COPIA-ULTIMO. 
COPIA-ULTIMO=EX. EXIT. 

e 

LEE-F1-ESCRIRE-F2 SECTION. 
FI=F2, : 


F1-F2-EX, EXIT. 
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desplaza hasta su último record lógico y se pre- 
dispone para la escritura de otros records de 
esta posición en adelante. El formato es: 


OPEN EXTEND nombre-de-file 


Hay que observar la gran utilidad de esta ins- 
trucción para realizar introducciones de datos al 
final de files ya existentes. 

En tal caso, operar del siguiente modo: 


OPEN |-O FILE-A. 

PERFORM LEE-TODO-FILE-A. 
PERFORM ESCRIBE-NUEVO-RECORD. 
CLOSE FILE-A. 


Utilizando la cláusula EXTEND, las mismas ope- 
raciones se realizarían con la secuencia 


OPEN EXTEND FILE-A. 
PERFORM ESCRIBE-NUEVO-RECORD. 
CLOSE FILE-A. 


Es evidente que la ventaja es tanto más sensible 
cuanto mayor es el número de records conteni- 
dos en el file. 

La cláusula EXTEND no puede utilizarse para un 
file vacío: el file abierto en modalidad EXTEND 
ya debe contener al menos un dato. 


En la tabla de abajo se han indicado los forma- 
tos completos de las instrucciones OPEN y 
CLOSE. Obsérvese que es posible cerrar un file 
para impedir su reapertura en el curso del pro 
grama utilizando la cláusula LOCK con la CLO- 
SE. 

A fin de conseguir una mayor legibilidad del 
programa además es aconsejable escribir las 
instrucciones columnándolas como sigue 


OPEN INPUT FILE-1 
FILE-2 
FILE-3 
OUTPUT  FILE-4 
FILE-5 

CLOSE  FILE-1 


FILE-2 WITH LOCK 


Lectura y escritura en files: los verbos 
READ y WRITE 


En muchos de los ejemplos ilustrados hasta 
ahora se ha indicado que una operación de lec- 
tura en file se efectúa con la instrucción READ, 
mientras que la escritura de un record en un file 
se obtiene mediante el verbo WRITE. 

El formato más sencillo de las dos instrucciones 
es el siguiente 


READ nombre-de-file AT END frase-imperativa. 
WRITE nombre de record. 


Es interesante subrayar que se lee (READ) un 
file y se escribe (WRITE) un record. 

Cada instrucción de lectura en un file deja dis- 
ponible para el proceso un record lógico. Para 
los files secuenciales pueden efectuarse, des- 
pués de la apertura y del cierre del file, tantas 
lecturas como records hayan presentes en el 
file. A continuación, a cada comando de lectura 
se efectúa automáticamente un test para verifi- 
car si el file se ha acabado o no. Entonces, el 
sistema operativo reconoce el final del file y a 


FORMATOS COMPLETOS DE LAS INSTRUCCIONES OPEN Y CLOSE 


REVERSED 
WITH NO REWIND 


[(WITH NO REWIND]] 


INPUT [nombre-de-tile| 


OUTPUT nombre-de-file 


(nombre-de-file| 


nombre-de-file 


nombre-de-file 
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MECANISMO DE LECTURA DE UN FILE 


FD FILE-A 
LABEL RECORD STANDARD 


BLOCK CONTAINS 3 RECORDS 
RECORD CONTAINS 100 CHARACTERS 


01 REC-A PICx(100) 
WORKING-STORAGE SECTION 
01 REC-A-W-S PICx(100) 


PROCEDURE DIVISION 
MAIN SECTION 


ABRE-FILE 


OPEN INPUT FILE-A 
READ FILE-A INTO REC-A-W-S 
AT END 


DISPLAY 'FIN FILE-A' 
UPON PRINTER 
CLOSE FILE-A 


continuación la frase-imperativa descrita en la 
cláusula AT END, La instrucción READ puede 
utilizarse también en el siguiente formato: 


READ nombre-de-file INTO nombre-de-dato 
AT END frase-imperativa 


Mientras en el primer formato el contenido del 
record se deja disponible al programa mediante 
el área descrita en FILE SECTION, en el segun- 
do formato el mismo record se copia en un área 
definida en la WORKING-STORAGE SECTION. 
Para ilustrar el mecanismo de lectura de un file 
considérese el sencillo caso, representado arri- 
ba, del file FILE-A constituido por seis records 
de 100 caracteres de longitud fija y con un fac- 
tor de bloqueo igual a 3. 

Antes de la apertura del file, el contenido del 
área REC-A es completamente imprevisible. 
La apertura del file comporta la ubicación en 
memoria de un área (buffer de entrada) dimen- 
sionada para contener 3 records de 100 carac- 
teres cada uno, o sea el resultado de la lectura 
del primer bloque de tres records en el buffer de 
entrada. En este momento, el contenido de 
REC-A todavía es indefinido. La primera lectura 
(READ) no efectúa por sí misma ningún despla- 


Buffer de O 


—> 


== Buffer de O 
== Puntero al record 
=> Transterencia del record 


zamiento de datos de memoria del buffer de en- 
trada hacia REC-A, sino que se limita a crear un 
puntero entre REC-A y el primer record en el 
buffer, dejando de este modo disponible al pro- 
grama el contenido del record. Además, como 
se ha especificado la cláusula INTO, el conteni- 
do del primer RECORD se copia en REC-A-W-S. 
La segunda lectura hace apuntar REC-A al se- 
gundo record y copia su contenido del buffer de 
entrada en REC-A-W-S. 

La tercera lectura se comporta análogamente. 
La cuarta lectura, al encontrar el buffer de entra- 
da vacío, procede a leer del file el segundo blo- 
que y hace accesible al programa el primer re- 
cord del buffer, efectuando como siempre la co- 
pia en REC-A-W-S. Una lectura sucesiva a la 
sexta encuentra la «mark» de fin-file y, por tanto, 
realiza la frase imperativa. 


DISPLAY 'FIN FILE-A' 
UPON PRINTER 
CLOSE  FILE-A 


El cierre del file comporta la liberación del buffer 
de entrada y, en consecuencia, el contenido de 
REC-A ya no está disponible. El proceso descri- 
to es perfectamente análogo para la instrucción 
WRITE, pero se recorre en sentido inverso. 
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En el formato 
WRITE nombre-de-record 


la instrucción efectúa las operaciones de escri- 
tura apuntando directamente al buffer de salida, 
mientras que con la forma 


WRITE nombre-de-record FROM nombre-de- 
dato 


en el buffer de salida se copia el contenido del 
campo de WORKING-STORAGE nombre-de- 
dato. Debe observarse explícitamente que la 
cláusula INTO para la instrucción READ y la 
cláusula FROM para la WRITE son, a todos los 
efectos, desplazamientos de dalos de un punto 
a otro de la memoria y, por tanto, respetan las 
reglas que rigen este tipo de operación. 

Sin afrontar un análisis detallado de estas re- 
glas, que se tratarán a fondo al hablar de la ins- 
trucción MOVE, es interesante anticipar algunas 
nociones útiles para la comprensión de las ins- 
trucciones que se examinan. Si en una instruc- 
ción READ el nombre-de-dato que acompaña la 
cláusula INTO tiene una longitud inferior a la 
descripción del record a leer, el record resultará 
truncado a la derecha. Considérese el ejemplo: 


DATA DIVISION, 
FILE SECTION. 
FD FICHAS 
LABEL RECORD OMITTED. 
01 FICHA PIC X(80). 
WORKING-STORAGE SECTION. 
01 FICHA-W-S. 
05 TIPO-FICHA PIC X(2). 
05 FECHA-FICHA. 
10 DIA PIC 9(2). 
10 MES PIC 9(2). 
10 AÑO PIC 9(2). 
05 ARTICULO. 
10 SERIE PIC X(2). 
10 NUMERO PIC 9(4). 
05 FILLER PIC X(3). 


(puede verse que el record FICHA del file Fl- 
CHAS está definido con 80 caracteres, mientras 
que el campo de WORKING-STORAGE FICHA- 
W-S tiene una longitud de sólo 17 caracteres). 
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PROCEDURE DIVISION. 

LEE FILE. 

OPEN INPUT FICHAS. 

READ FICHAS INTO FICHA W-S 
AT END... 


Si el contenido de la ficha leída (presente en el 
buffer de entrada) es por ejemplo 


AA101283XZ74% 1CABLETELEFONICO 
en el campo FICHA-W-S se tiene 
AA101283XZ7411CAB 


Si el campo FICHA-W-S hubiese sido, por ejem- 
plo, 


01 FICHA-W-S PIC X(150). 


la instrucción 


READ FICHAS INTO FICHA-W-S 
AT END... 


debería transferir todo el contenido de la ficha 
leída, llenando las posiciones de la 81* a la 150* 
con caracteres blancos. 

La regla citada es válida también para la instruc- 
ción WRITE: 


m Sila longitud del campo especificado en la 
cláusula FROM es inferior a la de la descrip- 
ción del record de salida, este último conten- 
drá todo el campo de WORKING-STORAGE 
más una serie de espacios en blanco hasta 
el llenado del record. 

m En cambio, en el caso en que el campo de la 
cláusula FROM tenga una longitud superior 
a la indicada en la descripción del record, su 
contenido se truncará a las dimensiones má- 
ximas del record de salida. 


A pesar de que los formatos que operan direc- 
tamente en los buffers de entrada/salida son 
más eficientes porque no prevén ningún trans- 
porte de datos de un punto a otro de la memo- 
ria, imponen una gestión más corta de las ins- 
trucciones. Sin embargo es necesario conocer 
perfectamente las situaciones en que el conte- 
nido del record en curso es fiable y en las que 
ya no lo es. 

A este propósito indicamos una serie de instruc- 


ciones erróneas, que llustran los problemas a 
los que se ha hecho referencia. 


Primer caso: 

WRITE RECORD-A. 

MOVE RECORD-A TO DISPONIBLE-REC. 
Cada operación de escritura deja inutilizable el 
contenido del record en curso. Análogamente, 
cada READ deja disponible el nuevo record e 
inutilizable el anterrior. 


Segundo caso: 

MOVE DISPONIBLE-REC TO RECORD-A, 
OPEN INPUT FILE-A. 

La operación de apertura de un file no deja dis- 
ponible el área del record, que por otra parte ya 
no contiene el valor de DISPONIBLE-REC. 


Tercer caso: 
READ FILE-A 
AT END 
MOVE RECORD-A TO DISPONIBLE- 
REC. 
La condición de fin de file deja inalcanzable el 
valor del record en curso. 


Escritura en files de impresión. La modalidad 
de utilización de la instrucción WRITE para los 
files en disco continúan válidas también para los 
files asignados a la impresora. 

Para estos últimos hay disponibles cláusulas 
con las que puede controlarse el carro de la im- 
presora posicionándolo según las exigencias 
del documento deseado. 

En cualquier caso recuérdese que los files asig- 
nados a la impresora (PRINTER) deben decla- 
rarse siempre con la cláusula LABEL RECORD 
OMITED, y que la longitud del record (linea de 
impresión) debe estar constituida por la longitud 
útil (máx. 132 caracteres) más uno, puesto que 
una posición se reserva al carácter de control 


del carro. Por tanto, el formato completo de la 
instrucción WRITE es el indicado en la tabla, 
Raramente el documento producido por un pro- 
grama Cobol consiste en una simple lista de in- 
formaciones, sino que tiene precisamente la ne- 
cesidad de presentar los resultados del proceso 
en listados bien organizados y de fácil lectura, 
Además, el listado producido por un programa 
también puede ser muy largo, por lo que es ne- 
cesario que no sólo la primera página, sino ca- 
da página del documento contenga una o más 
filas de cabecera que aclaren la naturaleza y el 
significado de los datos indicados. 

A continuación se examinan las cláusulas senci- 
llas de la WRITE que permiten la gestión de los 
files de impresión. 


Cláusulas para el salto de líneas. Si no se ha 
especificado ninguna cláusula en la instrucción 
WRITE, ésta procede a imprimir el contenido del 
record en la línea inmediatamente siguiente a la 
última impresa. En el caso de que el programa- 
dor quiera alterar esta secuencia de impresión 
puede declarar al Compilador el número de lí- 
neas que debe saltar antes de imprimir la línea 
todavía en memoria, 

En otras palabras 


WRITE LINEA FROM LINEA-W-S 
AFTER ADVANCING 3 LINES. 


equivale a decir: «después de saltar 3 líneas 
(AFTER ADVANCING 3 LINES) escribe (WRITE) 
el record LINEA tomando el contenido del cam- 
po de WORKING-STORAGE LINEA-W-S», 

Por tanto, es posible obtener antes la impresión 
de la línea deseada y sólo después el salto de 
un cierto número de líneas utilizando la forma 


WRITE LINEA FROM LINEA-W-S 
AFTER ADVANCING 3 LINES. 


o bien: «escribe (WRITE) el record LINEA to- 
mando el contenido del campo LINEA-W-S an- 
tes de avanzar 3 líneas (BEFORE ADVANCING 
3 LINES)». 

El número de líneas que debe hacerse avanzar 
el carro (en realidad es el papel que avanza) 
* también puede ser un número entero sin signo 
contenido en un campo elemental numérico de- 
finido en WORKING-STORAGE SECTION. 

Por tanto, los ejemplos analizados son equiva- 
lentes a los indicados a continuación 


WRITE LINEA FROM LINEA-W-S 
AFTER ADVANCING SALTO LINES. 
WRITE LINEA FROM LINEA-W-S 
BEFORE ADVANCING SALTO LINES. 


donde SALTO está decidido en WORKING- 
STORAGE SECTION en el modo 


01 SALTO PIC 9(2) VALUE 3. 


Independientemente del método utilizado para 
declarar las líneas a saltar, éstas no pueden ser 
más de 99. 

Obsérvese finalmente que las palabras ADVAN- 
CING y LINES no son obligatorias y, por tanto, 
las mismas instructiones pueden escribirse 


WRITE LINEA FROM LINEA W-S AFTER 3. 
WRITE LINEA FROM LINEA-W-S 

AFTER SALTO. 

WRITE LINEA FROM LINEA-W-S 

BEFORE 3. 

WRITE LINEA FROM LINEA-W-S 

BEFORE SALTO. 


Cláusulas para el salto de páginas. De forma 
análoga a la descrita para el salto de líneas, la 
instrucción WRITE prevé también una gestión 
de la página sobre la que efectuar la impresión 
de la línea en escritura. La clásula PAGE sólo 
permite saltar a la página inmediatamente si- 
guiente a la que se utiliza: 


WRITE LINEA FROM LINEA-W-S 
AFTER PAGE. 


equivale a: «después (AFTER) de haberte posi- 
cionado en la primera línea a escribir de la nue- 
va página (PAGE) escribe (WRITE) LINEA utili- 
zando el campo LINEA-W-S»; 


WRITE LINEA FROM LINEA-W-S 
BEFORE PAGE. 


significa: «antes (BEFORE) escribe LINEA usan- 
do el contenido de LINEA-W-S y después salta 
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a la primera línea útil de la nueva página (PA- 
GE)». 

Hasta ahora se ha hablado genéricamente de 
«primera línea a escribir de la página»: si el pro- 
gramador no la altera explícitamente con la ade- 
cuada cláusula, esta línea la gestiona directa- 
mente el sistema operativo. 


La cláusula LINAGE. Para poder organizar se- 
gún las propias exigencias de impresión las pá- 
ginas de un documento, el programador puede 
utilizar la cláusula LINAGE en la FILE SECTION. 
Esta clásula permite declarar al Compilador: 


m El número total de líneas a imprimir en el 
campo de la página (LINAGE); debe ser 
mayor que O 

m El número de líneas vacías que deben pre- 
ceder a las líneas a imprimir (TOP); puede 
ser igual a O 

m El número de líneas vacías que deben se- 
guir a las líneas a imprimir (BOTTOM); pue- 
de ser igual a O 

m El número de la línea en que imprimir el re- 
cord en curso antes de saltar a una nueva 
página (FOOTING); debe caer entre las filas 
a imprimir. 


El formato completo de la cláusula LINAGE es el 
siguiente: 


Todos los parámetros declarados deben ser nú- 
meros enteros o nombres de datos numéricos 
elementales sin signo. 

En otras palabras, escribir 


DATA DIVISION. 

FILE SECTION. 

FD IMPRIME 

LABEL RECORD OMITTED 

LINAGE IS 56 LINES 
LINES AT TOP 6 
LINES AT BOTTOM 4 
WITH FOOTING AT 56. 


01 LINEA PIC X(133). 


| 


es completamente equivalente a escribir 
DATA DIVISION. 


FILE SECTION. 
FD IMPRIME 
LABEL RECORD OMITTED 


LINAGE IS NUMERO-LINEAS LINES 
LINES AT TOP MARGEN-SUPERIOR 
LINES AT BOTTOM MARGEN-INFERIOR 
WITH FOOTING LINEA-FOOTING. 

01 LINEA PIC X(133). 


WORKING-STORAGE SECTION, 


01 NUMERO-LINEAS PIC 9(2) VALUE 56. 
01 MARGEN-SUPERIOR PIC 9 VALUE 6. 
01 MARGEN-INFERIOR PIC 9 VALUE 4. 
01 LINEA-FOOTING PIC 9(2) VALUE 56. 


Obsérvese que todas las cláusulas de la LINA- 
GE son opcionales, y en el caso en que no se 
utilicen, automáticamente se asumen (por omi- 
sión) los siguientes valores: 


línea-de-footing 
margen-superior 
margen-inferior 


= número líneas a imprimir 
=0 
=0 


Además de las posibilidades descritas, la cláu- 
sula LINAGE puede agilizar notablemente la 
gestión de la impresión. Efectivamente, en el 
momento en que se abre un file de impresión 
al cual hay asociada la cláusula LINAGE, tam- 
bién se asigna un registro especial (LINAGE- 
'"COUNTER), gestionado automáticamente por el 
Cobol durante la ejecución de las instrucciones 
WRITE. En este registro hay disponible el núme- 
ro de la fila sobre la que está posicionada la 
impresora en el ámbito de una misma página. 
El significado de todo lo dicho se evidencia en 
el ejemplo indicado abajo. 

Del ejemplo se deduce que, cuando se utiliza la 
cláusula LINAGE en la descripción de un file de 
impresión, el Cobol puede «sentir», mediante el 
LINAGE-COUNTER, el final de la página delimi- 
tada por los parámetros en FILE-SECTION. 


IDENTIFICATION DIVISION 


FILE SECTION. 
FD IMPRI 
LABEL MéCORD OMITTED 
LINAGE IS 50 
mob 
BOTTOM 6. 
PIC X(133). 


WORKING- a SECTION. 
SEARS 


PROCEDURE DIVISION. 
OPEN OUTPUT IMPRIME 


ITE LINEA FROM LINEA-W-S. 


WRITE LINEA FROM LINEA-W-S AFTER 3. 


WRITE LINEA FROM LINEA-W-S, 


WRITE LINEA FROM LINEA-W-S AFTER PAGE 


Asigna el file y pone a O el contenido del 
LINAGE-COUNTER. 


Imprime el contenido de LINEA-W-S en la undécima línea de 
la hoja, o bien después de un margen superior a 10 líneas 
(TOP 10). El LINAGE-COUNTER es incrementado en 1. 


Hace avanzar 3 líneas el papel, imprime el contenido de 
LINEA-W-S e incrementa en 3 el LINAGE-COUNTER. 


Supóngase que, con las instrucciones WRITE utilizadas 
hasta ahora, el carro esté posicionado en la 50* línea, o 
bien en la última línea a escribir, de acuerdo con la cláusu- 
la LINAGE. En este caso, el contenido de LINEA se impri- 
me en la línea utilizable de la siguiente página, y el LINA- 
GE-COUNTER se coloca en 1, para tener en cuenta sólo 
las líneas impresas en la página acabada de empezar. 


El comportamiento es análogo al descrito por la WRITE ante- 
rior, pero lo comanda el programador si en este punto del 
programa desea cambiar de página. 
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Aprovechando esta capacidad es posible de- 
clarar en la instrucción WRITE una acción que el 
programa debe realizar inmediatamente des- 
pués del fin de una página. 

Supóngase que se quiere imprimir una cabece- 
ra al principio de cada página. En este caso, si 
las instrucciones utilizadas para la impresión de 
la cabecera se reúnen todas en una SECTION 
de nombre CABECERA, puede escribirse 


WRITE LINEA FROM LINEA-W-S 
AT END-OF-PAGE PERFORM 
CABECERA. 


o más sintét camente 


WRITE LINEA FROM LINEA-W-S 
EOP PERFORM CABECERA. 


Las instrucciones ACCEPT y DISPLAY 


Estos dos verbos de l/O son comparables res- 
pectivamente a una READ y a una WRITE, pero 
están orientados esencialmente a pequeñas 
cantidades de datos. 

Mediante el verbo ACCEPT, el programador tie- 
ne la posibildad de detener el proceso para to- 
mar datos de la consola del sistema, del lector 
de fichas o de algunos registros particulares. 
Contrariamente a lo que sucede para la instruc- 
ción READ, la ACCEPT no necesita la asigna- 
ción de ningún file, ni en el interior ni en el exte- 
rior del programa. 

La instrucción tiene el formato indicado abajo, y 
permite transferir en el campo de WORKING- 
STORAGE nombre-de-dato la entrada proce- 
dente de (FROM) una de las áreas de sistema 
encerradas entre paréntesis. 

Así, cl programa en ejecución puede adquirir 
parámetros variables del exterior. Estos pará- 
metros tienen esencialmente las funciones 


m de documentación 
m de parametrización del proceso 
de diálogo mediante la consola. 


El significado de esta subdivisión se aclarará 
con el ejemplo indicado después de la descrip- 
ción del verbo DISPLAY. 

Por el momento, téngase presente que en el 
campo nombre-de-dato se transfieren 


1 / la respuesta tecleada en consola por el ope- 
rador, cuando hay especificada la cláusula 
FROM CONSOLE 

2 / el contenido de una ficha, cuando se emplea 
la cláusula FROM CARD-READER 

3/la fecha del día en el formato AAMMGG 
cuando se usa la cláusula FROM DATE 

4 / la fecha del día en el formato AAGGG cuan- 
do se usa la cláusula FROM DAY 

5 / la hora del día expresada en 8 caracteres en 
la forma HHPPSSCC cuando se utiliza la 
cláusula FROM TIME 


Para aclarar las notaciones usadas en los últi- 
mos 3 formatos, supóngase que el programa se 
realiza el día 15 de enero de 1984 cuando han 
transcurrido 8 horas, 12 minutos, 35 segundos y 
75 centésimas de segundo a partir de la media- 
noche. Las tres instrucciones siguientes 


ACCEPT FECHA-OFICIAL FROM DATE. 
ACCEPT FECHA-JULIANA FROM DAY, 
ACCEPT HORA FROM TIME. 


implantan los respeclivos campos de llegada a 
los valores que hay a su lado: 


FECHA-OFICIAL —— = 840115 
FECHA-JULIANA — = 84015 
HORA = 08123575 


Los campos de llegada deben haberse definido 
respectivamente con longitudes de 6, 5 y 8 ca- 
racteres, numéricos y sin signo. 


El verbo DISPLAY permite enviar un mensaje a 
la consola del sistema o a la impresora. 


Este mensaje puede estar compuesto indife- instrucción es el indicado en la tabla. 

rentemente de constantes alfanuméricas o del Un ejemplo de empleo de las instrucciones AC- 
contenido de campos descritos en WORKING-  CEPT y DISPLAY se ve en la tabla de abajo, co- 
STORAGE. En síntesis, el formato general de la  rrespondiente a un simple programa que debe 


EJEMPLO DE USO DE LAS INSTRUCCIONES ACCEPT Y DISPLAY 


IDENTIF ICAFTON 1 E . 
PROGRAM= PT-DISPLAY 


IN SE , 
SOURCE- COMPUTER. 02onococoooonoooo 
 DRIEOTSCINFUTER 0 SANA CCT AAN 
INPUT-DUTPUT SECTION. 
- FILE-CONTRO 
SELECT MOVIMIENTOS Li EL Lag PS. 
DATA DIVISION. 
FILE BEGIN: 7 AAA, 
FI MOVIMIENTOS 
—  RABEL: RECORD'STANDARDS: IA 
01 REC-=- peda PIC X(14). 
STABISTIDAS 


05 FEcnA-moY . 
mO-M0 


10 MES-M0V, FIC 9(2), 
IO AMÓN 
05 CANTITNAD PIC 9D. 


Se 
01 REC-STA-US 
A EA NANA 
05 MES-5TA PIC 9(2). 
E NDA 
ES 
104 ¡EXUUASRARANEIROS: == 
05 TIPO-SK-PAR PIC XX, 
ART AA Aa 


* 
ÓL- — IPERICION MES IAEA RARAS AA a 
* TECLEAR NUMERO MES A PROCESAR”. 


cs pe. We al P 
01 MES-DE-CONSOLA PIT 912). 
AED O A ES 
01 FECHA-FROCESO O ASS 
01. FECHA-=FPROC RENEFINES FECHA=SPROE. 
05 AÑO-PROC PTC 91D). 
05 —MES-PROSL A 
> ou ITA- PROC e PIE: 912 
01 HORA-PROCESO PIC 9(D, 
01 HORA-PROD—— RENEFINES HODRA-PROCOESO. 
05 HORAS PIC.-9(2). 
05 — MINUTOS. AAA EAN AA 
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05 SEGUNDOS PIC 9(2). 


05 CENTESIMAS PIC 9(D, 

* 

01 PROCESO. 
0% FILLER PIC X(17) VALUE 
' PROCESO DEL'. 
039 DIA-DTSPLAY PIC 99, 
05 FILLER PIC X VALUE '/', 
05 MES-I0SPLAY PIC 99, 
¿05 FILLER PIC.X VALUE '/', 
035 AÑO-TISFLAY PIC 99, 
05 FILLER PIC X(10) VALUE 

ALAS', 

05 HORAS-DISFPLAY PIC 99, 
03 FILLER PIC X VALUE *:*, 
0% MINUTOS-DISPLAY PIC 99, 
03% FILLER PIC xXx VALUE ':i!, 
05 SEGUNNOS-TULSPLAY PIC 99. 
05 FILLER FICX  * VALUE *1”, 
050 CENTESIMAS-DTSPLAY PIC 99. 

* 

01 EXTRACCION. 
0% FILLER PIC Xx(42) VALUE. 

"EXTRACCIÓN Y ACOMONO PARA EL ARTICULO '. 

05 ART-DTSFLAY FIC 9(3), 


PROCEVURE: NIVISION, 
INICIO SECTION. 
ACEPTA. 
ACCEPT FECHA-PROCGESO FROM DATE. 
ACCEFT  MHORA-PROCESO FROM TIME. 
DISPLAY PETICION=MES 
UFON CONSOLA. 
ACCEPT MES-IE=CONSOLA FROM CONSOLA. 
DETERMINA-OFEN. 
1F MES-DIE-CONSOLA = 1 
OPEN OUTPUT ESTADISTICAS 
EL.SE 
OPEN EXTENM ESTANISTICAS, 
ACEFTA-SK-FAR 
ACCEPT FICHA-PARAMETRO FROM CART-REATDER, 
OPEN INPUT MOVIMIENTOS. 
LEE-MOVIMIENTOS, 
LEE MOVIMIENTOS INTO REC-MOV-4S 
AT ENI 
PERFORM CIERRE 
STOP RUN, 
IF ART=MOV NOT = ART=SK-PAR 
GO TO LEE MOVIMIENTOS, 
FERFORM PROCESA-RECORIOS. 
WRITE REC=STA FROM REC-=STA-UWS. 
60 TO LEE-MOVIMIENTOS. 
pS 
PROCESA-RECORO SECTION. 
PROC=REC + 
.a.... sn... 
PROC-=REC=EX, EXIT, 
* 
CIERRE SECTION. 
CIERRA, 
CLOSE MOVIMIENTOS 
CLOSE ESTANISTICAS. 
MOVE ART-SK-FAR TO ART-DISPLAY. 
MOVE. AÑO-PROC TO AÑO-DISPLAY, 
MOVE MES- PROC TO MES-DISPLAY, 
MOVE DIA-PROC TO DIA DISPLAY, 
MOVE HORAS TO HORAS-DISPLAY, 
MOVE MINUTOS TO MINUTOS-DISPLAY. 
MOVE SEGUNDOS TO SEGUNDOS-DISPLAY, 
MOVE CENTESIMAS TO CENTESIMAS-DISPLAY. 
DISPLAY PROCESO . UPON PRINTER. 
DISPLAY EXTRACCION UPON PRINTER. 
DISPLAY '*xx*x FIN PROCESO x*x' 
UPON FRINTER. 
CIERRE-EX. EXIT. 
* 
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1 / leer un file en disco en el que hay memoriza- 
dos los movir---=itos mensuales de todos los 
artículos vendidos en un almacén 

2 / extraer sólo los datos de un artículo, cuyo có- 
digo está perforado en una ficha 

3 / poner los datos procesados a continuación 
de los de un file de estadísticas residentes 
en disco 

4 / abrir oportunamente el file ESTADISTICAS 
(crearlo o abrirlo en extensión) y pedir al ope- 
rador (de consola) si los datos en proceso 
corresponden a enero o a otro mes cualquie- 
ra del año 

5 / finalizado el proceso debe escribirse en im- 
presora un mensaje formulado como sigue: 


PROCESO DEL (fecha) A LAS (hora) 
EXTRACCION Y ACOMODAMIENTO PARA 
EL ARTICULO (código-artículo) 

FIN PROCESO. 


Abajo y en la pág. 1010 se han indicado el flujo 
de datos y el diagrama de flujo del programa. 
Verbos aritméticos 


Los verbos aritméticos permiten trabajar sobre 
datos contenidos en los campos mmnemónicos 
para calcular el valor de determinadas expresio- 


nes aritméticas a las cuales concurren dichos 
datos. 

Un lenguaje de programación debe poder ges- 
tionar ágilmente las informaciones del ambiente 
al que está orientado. Por tanto, dado su desti- 
no, el Cobol está dotado de un limitado conjunto 
de operaciones matemáticas, suficiente para 
satisfacer las exigencias de cálculo del ambien- 
te en que se desarrolla: el comercial. 

Antes de proceder al examen de las instruccio- 
nes aritméticas es indispensable conocer la for- 
ma en que los datos numéricos se representan 
en la memoria del procesador. Por tanto, descri- 
biremos algunas cláusulas gracias a las cuales 
es posible imponer un tipo de representación en 
lugar de otro, de manera que se tengan los ele- 
mentos que permitirán estructurar el proceso de 
los datos numéricos de la forma más adecuada. 


Representación de los datos en 
memoria: la cláusula USAGE 


Durante las operaciones de transferencia de da- 
tos (MOVE) o aritméticas, el calculador efectúa 
conversiones de representación, de manera 
que pueda actuar sobre los datos de forma ho- 
mogénea. 

Una apropiada representación interna de los 
datos que corresponden a ciertos artículos, 
descarga el sistema de las operaciones de con- 


EJEMPLO DE USO DE LAS INSTRUCCIONES 
ACCEPT Y DISPLAY 
FLUJO DE LOS DATOS 


EJEMPLO DE EMPLEO DE LAS INSTRUCCIONES ACCEPT Y DISPLAY 


Exclusión record 
Ciclo de lectura 


Inicialización 
parámetros 


parán 


A fin file 


Leer 


MOVIMIENTOS 
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versión, con notable beneficio en términos de 
velocidad de ejecución. Para los datos numéri- 
cos, en ANS COBOL se han previsto dos tipos 
dle representación interna: 


DISPLAY (codificación hexadecimal) 


COMPUTATIONAL (codificación binaria) 


Para definir un dato cuya representación interna 
dlebe tenerse en codificación binaria, por ejem- 
plo puede escribirse indiferentemente 


01 CAMPO PIC S9(5) 
USAGE IS COMPUTATIONAL. 


o también 
01 CAMPO PIC S9(5) COMP. 


Si la cláusula USAGE se omite, el Compilador 
asume por omisión la representación interna de 
tipo DISPLAY. Esto significa que, para el Compi- 
lador, las tres descripciones siguientes son 
completamente equivalentes: 


01 CAMPO PIC S9(5). 
01 CAMPO — PIC S9(5) 

USAGE IS DISPLAY, 
01 CAMPO PIC S9(5) DISPLAY. 


USAGE DISPLAY. Con este tipo de representa- 
ción, cada cifra ocupa un carácter (byte) del 
campo en memoria. 

Por ejemplo, en el caso de la descripción 

01 CAMPO PIC 9(4) VALUE 6. 

no se ha especificado la cláusula USAGE y el 
Compilador asume DISPLAY, y por ser el cam- 
po inicializado en el valor 6, tiene como repre- 
sentación interna 0006. 


USAGE COMPUTATIONAL. La cláusula USA- 
GE COMPUTATIONAL (COMP) declara al Com- 
pilador que el contenido del campo en examen 
debe tener una representación de tipo binario. 
Es evidente que el uso del código binario no li- 
mita el Compilador a operaciones de conver- 
sión, puesto que el calculador opera según este 
tipo de representación. 

El uso de la cláusula USAGE COMP, además de 
permitir tiempos de proceso más cortos, com- 
porta también una menor ocupación de memo- 


ria. Efectivamente, mientras un campo de USA- 
GE DISPLAY ocupa en memoria tantos bytes 
como cuantos son los caracteres declarados en 
la PICTURE, con la USAGE COMP, la ocupa- 
ción en memoria es inferior, a pesar de que per- 
mite la representación de los mismos números. 
Considérese por ejemplo que deba definirse un 
campo que pueda contener hasta 10 cifras. Si 
su descripción fuese 

01 CAMPO PIC S9(10), 

el Compilador reservaría 10 bytes en memoria. 
El mismo campo descrito como 

01 CAMPO PIC S9(10) 

USAGE COMPUTATIONAL, 


ocuparía en memoria sólo 8 bytes. 

La ventaja todavía es más significativa para 
campos de longitud superior a 10 cifras. Si se 
considera el caso de un campo de dimensiones 
máximas previstas por el Cobol, o sea de 18 ci- 
fras, descrito en el modo 


01 CAMPO PIC S9(18) COMP. 


su ocupación de memoria todavía será igual a 8 
bytes. 

Finalmente puede trazarse la segunda tabla, en 
la que se indica la ocupación real de memoria 
para campos COMPUTATIONAL en función de 
diversos intervalos de longitud declarados en la 
cláusula PICTURE. 


Para comprender más a fondo la distinción real 
que existe entre las dos representaciones anali- 
zadas hasta ahora, considérense dos campos, 
CAMPO-1 y CAMPO-2, declarados respectiva- 
mente DISPLAY y COMPUTATIONAL: 


01 CAMPO-1 PIC So(2). 
01 CAMPO-2 PIC S9(2) COMP. 


Debe observarse que los dos ocupan en memo- 
ria dos bytes: CAMPO-1 porque esto es expre- 
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samente declarado por la cláusula PICTURE, y 
CAMPO-2 en base a la tabla de equivalencia 
indicada anterjormente. 

Si se supone que tanto uno como otro campo 
contienen el número 17, la representación en 
memoría correspondiente a los dos campos es 
la siguiente: 


CAMPO-1 
(F) (1) (F) (7) 
1111 , 0001 | 1111 , 0111 
(codificación hexadecimal) 

CAMPO-2 
(29 (2) 
0000 ¡ 0000 | 0001 0001 


(codificación binaria) 


Como puede observarse, el contenido de 
CAMPO-2 es el código binario normal del núme- 
ro 17 con una extensión de 16 bits. 

También se recuerda que el primer bit de la iz- 
quierda del campo está reservado para el sig- 
no. Si este bit se pone a 0, el número es positivo 
(ver ejemplo), mientras los números negativos 
se representan con la combinación de bits obte- 
nida del complemento a 2. Considérese el caso 
del campo descrito a continuación 


01 CAMPO-3 PIC S9(4) COMP. 


que en un cierto momento su contenido valga, 
por ejemplo, — 1234, 

Si el número contenido fuese + 1234, su repre- 
sentación interna sería la siguiente: 


0000 , 0100 | 1101 , 0010 


Como puede observarse, tratándose de un nú- 
mero positivo, el primer bit es igual a 0. 

En realidad, como debe memorizarse el núrnero 
— 1234, la máquina procede a representar el 
mismo como complemento a 2 de la configura- 
ción anterior, procediendo según los pasos des- 
critos a continuación 


1 / Representación del número + 1234 


— 1bye => 


0000 , 0100 | 1101 , 0010 
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2 / Complemento a 1 


1111 , 1011 | 0010 , 1101 


3/Suma de 1 +1 
4 / Representación del número — 1234 


1111 ¡, 1011 | 0010 ¡ 1110 

Muchos Compiladores prevén el uso de otros 
tipos de representación para los datos numéri- 
cos, no previstos por el Cobol estándar. Estas 
representaciones se declarar con los siguientes 


formatos de la cláusula USAGE: 


USAGE IS COMPUTATIONAL-3. 
USAGE IS COMPUTATIONALA. 
USAGE IS COMPUTATIONAL-2. 


Los mismos formatos son equivalentes a 


COMP-3. 
CcompP-1. 
COMP-2. 


USAGE COMP-3. Esla representación, llamada 
también empaquetada (packed), reserva un 
byte cada dos cifras del campo descrito, a ex- 
cepción del último byte de la derecha, en que 
se memoriza una sola cifra más la ubicación del 
signo. Por ejemplo, considérese el campo 
CAMPO-4 cuya descripción sea 


01 CAMPO-4 PIC 9(3) COMP-3. 


y cuyo valor en un instante dado sea 456. 
Como con USAGE COMP-3 cada cifra ocupa 
un semibyte, y el último está reservado para el 
signo, se tendrá esta representación interna 


— 1bye > < 1bye => 
4 5 6 F 


en la que la letra F tiene en cuenta el hecho de 
que CAMPO-4 no prevé el signo (o bien que fal- 
ta el símbolo S en la PICTURE). 

Debe observarse que la asignación en memoria 
de los bytes necesarios para representar el nú- 
mero de cifras que necesita la PICTURE siem- 
pre se hace de manera que ocupe un número 
entero de bytes. Es decir, un campo declarado 
de dos cifras con signo [PIC SY(2)] necesitaría 


A 


oluso de tres semibytes, dos para las cifras más 
uno para el signo. En este caso, el Compilador 
asigna también el cuarto semibyte, expandien- 
do con un O a la izquierda la parte no utilizada. 
Consideremos, por ejemplo, el campo descrito 
corno sigue: 

O1 CAMPO-5. PIC S9(2) COMP-3, 

y supongamos que CAMPO-5 contiene en un 


cierto momento el valor + 12. 
su representación interna será 


0 1 2 C 
— 1"bye => == byte => 


La letra C declara que el valor contenido en el 
campo es positivo. 

Para completar la descripción de la cláusula 
COMP-3 considérese el campo 

01 CAMPO-6 PIC S9(4)V9(2) COMP-3. 

La ocupación de memoria es de 6 semibytes 
(tantos como las cifras declaradas por la PICTU- 
RE) más un semibyte para la codificación del 
signo, más un semibyte añadido por el Compila- 
dor para utilizar un número entero de bytes; en 
total 8 semibytes, o bien 4 bytes. Si un valor mo- 
mentáneo de CAMPO-6 es — 4867.15, su repre- 
sentación es 


0, 4 8 (1 1 Sy D 


en la que la letra D tiene en cuenta el signo ne- 
gativo del número memorizado. 


USAGE COMP-1 y COMP-2. Estos dos tipos de 
representación interna, llamadas también floa- 
ting point (coma flotante), se usan escasamen- 
te en el ámbito del Cobol. Su uso está justificado 
cuando deben manipularse números muy gran- 
des, pero comporta una precisión menor con 
respecto a otros tipos de representación. Me- 
diante estas representaciones internas pueden 
manipularse números que van de 10.- a 10* ” 
con un grado de precisión que se extiende has- 
ta la 6* cifra decimal para el COMP-1, y hasta la 
16* para el COMP-2. 

Esto también justifica el limitado uso en el am- 
biente comercial en que se mueve el Cobol. 

El formato del USAGE COMP-1 o COMP-2 difie- 


re del de las representaciones descritas hasta 
ahora. Efectivamente, si un campo se declara 
en coma flotante, el Compilador le asigna auto- 
máticamente una palabra (COMP-1) o dos pala- 
bras (COMP-2). 
En consecuencia, un campo declarado en co- 
ma flotante de simple precisión se describe por 

01 CAMPO-7  COMP-1. 
mientras que uno de doble precisión puede ser, 
por ejemplo, 

01 CAMPO-8 CoMP-2. 
La representación interna de un número en co- 
ma flotante consta de dos partes: una parte re- * 
presenta las cifras significativas del número 
(mantisa) y la otra representa el exponente que 
determina el valor real del número (característi- 
ca). Sólo los modernos calculadores están dota- 
dos de un circuito haroware especial que pue- 
de efectuar las operaciones de normalización 
necesarias para este tipo de representación; 
por tanto, nos limitaremos a exponer las disposi- 
ciones de las partes indicadas en las dos repre- 
sentaciones COMP-1 y COMP-2 en una máqui- 
na con palabras de 32 bits o menos: 


COMP-1 A | Característica l Manlisa 
Bitn. 01 78 31 

COMP-2 > | Característica Mantisa 
Bitn. 01 78 63 


El buen conocimiento de las representaciones 
internas de los datos numéricos constituye una 
buena base para el planteo de un programa rá- 
pido y fiable. 

Para completar las informaciones relativas a es- 
te tema, téngase presente que el Cobol permite, 
en el ámbito de una misma operación, el uso de 
campos numéricos con representaciones inter- 
nas diferentes. Esto es posible, como ya se ha 
indicado, gracias a procedimientos de conver- 


. sión gestionados directamente por el Compila- 


dor. En cualquier caso, el proceso de conver- 
sión está vinculado a una jerarquía que estable- 
ce un orden de prioridad. La jerarquía citada, en 
orden decreciente de prioridad, es la que a con- 
tinuación se indica: 
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El microprocesador aplicado al control de una caja registradora. 


COMP-2 
COMP-1 

COMP-3 
DISPLAY 
COMP 


Todo lo indicado quedará más claro cuando se 
hable de los verbos de tipo aritmético, 


Las expresiones aritméticas 

Una expresión aritmética, cosa bien conocida, 
permite efectuar una serie de operaciones, a ve- 
ces complejas, sobre operandos y constantes; 
el resultado puede asociarse a una variable. Por 
ejemplo, 


D 
(E +F) 


A = (B + CP + —(G + H) + 100 


constituye una expresión en que, a la izquierda 
del signo igual, aparece la variable dependiente 
A, cuyo valor es igual al resultado que se deriva 
del proceso del segundo miembro (cuando ca- 
da una de las variables del mismo tenga un va- 
lor definido). 
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En el Cobol, el concepto de expresión aritmética 
no es diferente del clásico, y adopta completa- 
mente sus reglas. 

Así, el programador que quiere calcular el valor 
de una expresión aritmética tiene a su disposi- 
ción las cinco operaciones fundamentales de la 
matemática del calculador, más los signos de 
paréntesis con que puede alterar la jerarquía de 
ejecución de ciertas operaciones. 

En el Cobol, las operaciones de la matemática 
están representadas por los operadores 


+ Suma 

- resta 

+ multiplicación 
/ división 


xx elevación a potencia. 


Con estas notaciones, la expresión anterior pue- 
de escribirse así: 


A=(B + C)x*2 + D/(E + F)-(G + H)w*P + 100 


Durante el cálculo de una expresión, el Cobol 
respeta completamente las reglas fundamenta- 


les de la aritmética, o sea la jerarquía con que 
deben realizarse las diversas operaciones. Esta 
jerarquía impone en primer lugar la resolución 
de las elevaciones a potencia, después la de 
multiplicaciones y divisiones y finalmente la de 
sumas y restas. 

Por ejemplo, el cálculo de la expresión A = 7 + 
5 4—6 sx 2 procede según los siguientes pa- 
SOS: 


A=7+5:x4+36 
A=7+ 20 + 36 
A = 63 


En el caso de que en una misma expresión apa- 
rezcan operadores con igual nivel de prioridad, 
se resuelven en el orden en que se encuentran 
en la expresión procediendo de izquierda a de- 
recha si se trata de + —« y /, y de derecha a iz- 
quierda si se trata de elevaciones a potencia 
(sake). 

Por ejemplo, las operaciones presentes en la 
expresión 


A=BxC/D+E-F+G sx 2 + H suas 3 
se realizan en el orden 


1/H sx 3 

2/G sa 2 

3/DBx*C 

4 / (resultado de B «* C)/D 

5 / (resultado de B x C / D) + E 

6 / (resultado de B x* C/D +E)-F 
DEs 


Si por exigencias de cálculo es necesario alterar 
las prioridades descritas, el programador tiene 
a disposición hasta 9 niveles de paréntesis; me- 
diante los paréntesis puede reagrupar de cual- 
quier modo los datos a tratar. Por ejemplo, utili- 
zando los paréntesis de la manera 


A = ((B + (C x D)) + 2 + E/ (F— G)) sex: 3 


las agrupaciones más internas se calculan en 
primer lugar, respetando en su interior las reglas 
generales ya descritas. 


La instrucción COMPUTE 


Hasta ahora, a pesar de adoptar la simbología 
del Cobol, las expresiones se han escrito en la 
forma clásica de la aritmética. 

Para poder obtener el resultado del cálculo de 
una expresión, el Cobol dispone de una instruc- 
ción adecuada. Esta instrucción permite transfe- 
rir a un campo de datos el valor de una expre- 
sión aritmética desde otro campo de datos o 
desde una constante numérica. 

El formato general de la instrucción COMPUTE 
es el indicado en la tabla de abajo. 

Para ilustrar su uso, considérese el siguiente 
ejemplo. 

Debe leerse un file de fichas en el que en cada 
una de ellas se ha indicado la cantidad compra- 
da de un cierto artículo, su costo unitario, el por- 
centaje de descuento aplicado y los gastos de 
expedición por unidad. Para cada ficha leída (o 
bien por cada compra efectuada) se quiere co- 
nocer el costo de la partida. Esto debe contribuir 
al cálculo de un total de las compras para evi- 
denciarlo en consola. Téngase en cuenta que el 
total obtenido debe contener también el total de 
un proceso anterior, tecleado directamente por 
el operador de la consola cuando el programa 
se lo pide mediante un adecuado mensaje. 

El diagrama de flujo de! programa se ha indica- 
do en la pág. 1016, y en la pág. 1017 pueden 
verse los flujos completos y la ficha perforada. El 
listado se ha representado en las págs. 1018 y 
1019. 

Observando el ejemplo puede verse cómo se 
ha insertado un contador de fichas leídas 
(CUENTA-FICHAS), no pedido explícitamente 
por las especificaciones. 

Efectivamente, constituye una buena norma 
prever siempre un contador de los records leí- 
dos o escritos, para tener una indicación acerca 
de los datos movidos por el programa. 
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EJEMPLO DE APLICACION DEL VERBO COMPUTE 
DIAGRAMA DE FLUJO 


sm», Condiciones de error 
..Ú.. Ciclo de cálculo 


ON SIZE ERROR 


AT END 
0 O E O E 


En el ejemplo se completan todos los formatos y 
las cláusulas de la instrucción COMPUTE: 


COMPUTE CUENTA-FICHAS = O 


implanta en el contador CUENTA-FICHAS el va- 
lor de la constante numérica 0; 


COMPUTE TOTAL = TOTAL-ANTERIOR 


implanta en el campo TOTAL el valor contenido 
en el campo TOTAL-ANTERIOR (atención: el 
signo — es un separador insertado en el nombre 
del campo). 


COMPUTE NETO-COMPRA ROUNDED = 
(CANTIDAD «+ COSTO — UNITARIO) — 
((CANTIDAD + COSTO - UNITARIO) + 
DESCUENTO / 100) + 
(CANTIDAD + GASTOS-UNITARIOS). 
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Calcula el valor de la expresión a la derecha del 
signo igual e implanta este valor en el campo 
NETO-COMPRA respetando la alineación con 
respecto al punto decimal en la posición previs- 
ta por la PICTURE. 

Con este formato, el valor calculado no se trun- 
ca simplemente en la tercera cifra decimal; si 
esta última es superior a 5 se tiene un redondeo 
al valor decimal inmediatamente superior. Es 
decir, si el valor de la expresión fuese 
785642.3896, la cláusula ROUNDED hace que 
NETO-COMPRA contenga 785642.390. Y vice- 
versa, si esa cláusula no se hubiese especifica- 
do, el contenido del campo habría sido 
785642.389. 


Sabido es que un contador en cualquier base, 
después de haber alcanzado el número máximo 
que puede representar, vuelve a O o bien, se- 
gún el argot habitual, se «desborda». Para acla- 


FLUJO DE LOS DATOS 


3 
2 
-) 
[2 
mn 
7] 

E SE 

E dE 

ó 95 
< 
pa e 
Q 
LL 
LU 
a 
Zz 012345£789ABCDEFGHIJKEMNOPORSTUVUyYYZ 
0 
(8) 
E 
O 0000000000v0000000000056000 o000000000000056000c000V0V0OVODVOVLOVNOCONVOVDINANDOO 
LL 12355658090600M01516018 13.20.21 2221242526 21 282330 31 37 33 24 35 363) 38 33 40 41 47 43 44 45 46 47 43:49 50 51 57 53 54 55 56 57 58 5360 61 52 53 64 ES 66 6) 68 69 10 11 12 13 14 757511 165980 
pe Y PUEDES PILETLIIA VUELTO PEEFUTIEDETT EVE FETEFDET TATI AO ETE ETT 
ul 
QA 22 22222222 22222222 2222222 222222222222222222222222222222222222222222222222222 


333 33333333 331333333 I33I3133"33I333I3333313333333313I333333I3333333I3I373I3333II33I333333 
4444 44444444 44444444 4444444 444444444444444444144444444444444444444444444 44444 
55555 55555555 55555555 5555555 5955555555555 599559559555595555555555555555555555 
666666 665566666 6665555E5 6666665 5656656565665 555555656555555565 56565556656 6566565655656556 
FERTTIVA ERFEVVTI AAPVTIETE UTBITTTA IET RIIIE TERA DIA AA AVI IA A TEITAR ADA 
88888888 38888888 88888888 8888888 888888888888881888888888888B8BB888B8B8888E8888B888 


AS 9091 


339999999 ILVITIITI FINTINII YING UIFIIFIATANADII NO 999999999 9:99:99 999.9:99 


17 145% 01891001004 151617 18 192071 27774 7526 71 28 2930 31 32 3334 35 3631 38 39 40 41 47 63 44 45 46 47 4843 50 $1 57 57 54 55 $6 5) 58 59 60 El 62 6364 55 66 6) 68 69 70 NM 12 73 J4 15 15 1 18 79 80 
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EJEMPLO DE APLICACION DEL VERBO COMPUTE 


IDENTIFICATION DIVISTON. 

PROGRA“M-1U, CALCULO. 

REMARKS. ESTE PROGRAMA ES UN EJEMPLO 
TE APLICACIÓN ME LA INSTRUCCION 
COMFUTE. 

ENVIRONMENT UIVISION. 

CONFIGURATION SECTION. 

SDURCE-COHPUTERS. aura us 

OBRA COMU DE cr daa ADoE ys 

IMPUT-D0UTFUT SECTION. 

FILE-CONTROL, 

SELECT FICHAS ASSTGN T( CARO-READER FICHAS, 

DATA-IITVISION. 

FILE SECTION. 

FU FICHAS 

LABEL RECORD OMITTELN, 


01 FICHA FTC Xx(80). 
* 


* 

ES 

WORK ING=STORAGE SECTION. 
01 - FILCHA-4S, 


0% ARTÍCULO PICXOD 
035 CANTICAD PIC S9(D. 
03% COSTO-UNITARTO PIE 59 (3)0U9(3) —COMF, 
05 NESCUENTO PIC 59 (2269 (3) COMP, 
0% GASTOS “UNITARIOS PITO 59 (330493) COMF. 
059 FILLER PTOXISD) 

$ 

01 TOTAL - ANTERTOR PIC 59 (15) COMP, 

E 

01 TOTAL PIC 59(15) COMP, 

e 

01 NETO-COMPRA FIC 59(8)V49 (3) —COMF, 

x 

01 SUETOTAL. PIC $59 (150U9(3) COMF, 

E 

01 CUENTA-FICHAS PTO 89) COME, 

* 

* 

* 

e 

x 


FROCETURE DIVISION, 
MAIN SECTION, 
INICIAL.IZA. 
COMPUTE CUENTA-FICHAS = 0 
COMFPUTE SUETOTAL = 0 
DISPLAY * = TECLEAR El. TOTAL ANTERIOR : 
UPON CONSOLE. 
ACCEFT TOTAL «ANTERTOR FROM CONSOLE, 
COMPUTE TOTAL, = TOTAL-ANTERTOR, 


**Xx 


ARRE - FILE, 
OFEN INFUT FICHAS, 
PRIMERA LECTURA. 
READ FICHAS INTO FICHA-4S5 
AT ENT 
DISPLAY '*x* FILE FICRAS VACIO xx? 
UFON CONSOLE, 


PERFORM CTERRE, 
CALCULA. 


COMPUTE CUENTA-FICHAS = CUENTA=FICHAS + 1, 
COMPUTE. NETO-COMPRA ROUNDED = 
(CANTIDAD * CUSTO-UNITARIO) - 
((CANTITIAL * COSTO-UNTTARIO) se 
DESCUENTO / 100) + 
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CANTINA * GASTOS-UNITARIOS). . Y SIT 3 


COMPUTE SUBTOTAL = SUBTOTA! 
o ON SIZE ERROR 


+ NETO-COMPRA 


; ES — = 
1 PR ll b yn 


DISPLAY * x* CAMPO SUBTOTAL, INSUFICIENTE 


' '*AVISAR AL RESPONSABLE *' AA iS . 
e UFON CONSOLE. 
: pu O PERFORM CIERRE. ad 143 ae 
OTRAS-LECTURAS. 
READ FICIIAS INTO FICHA-4S > e al E 
AT END 
FERFORM CIERRE, os e 3 ha 3 
GO TO CALCULA, 
» En 2 Ú e 
2 
S > mm 
> 
rx «MM , P'. > 
CIERRE SECTION. 
CIERRA-=FTILE. 
CLOSE FICHAS. 
DISPLAY 'xx* FICHAS LEIXMAS = ' CUENTA-FICHAS d 2 


UFON CONSOLE. 


COMPUTE TOTAL ROUNDEN = TATAL + SUBTOTAL. 


DISPLAY ' ' 
UFON CONSOLE. 


DISPLAY '*x* TOTAL ACTUAL = ' TOTAL 


UFON CONSOLE. 
STOF RUN, 
X 
* 
*x 


rar las ideas, piénsese en el cuentakilómetros 
de los automóviles. Generalmente, estos conta- 
dores están previstos para cinco cifras y, por 
tanto, pueden contar hasta 99.999 kilómetros; el 
kilómetro 100.000 hace desbordar el contador, 
que vuelve a indicar 000000. 

La situacón es análoga en el caso de contado- 
res electrónicos como son los campos numéri- 
cos descritos en un programa Cobol. 

Para garantizar siempre la posibilidad de alcan- 
zar el valor contenido en un contador, el Cobol 
prevé, para todos los verbos aritméticos, la cláu- 
sula ON SIZE ERROR. Mediante esta cláusula, 
el programa puede indicar el desbordamiento 
de un contador en el momento en que se incre- 
menta su contenido. Tratándose evidentemente 
de una condición anómala que puede desvir- 
tuar los resultados, en este caso se asocia una 
frase imperativa que permite al programador 
gestionar la situación según las exigencias del 
caso. En el ejemplo examinado, el desborda- 
miento del contador SUBTOTAL no permite ges- 
tionar de forma alternativa la situación y, por tan- 
to, es necesario indicar a la consola que se pro- 
duce este inconveniente y cerrar a continuación 
el proceso. De la observación del ejemplo indi- 
cado también pueder extraerse reglas genera- 
les válidas no sólo para la instrucción COMPU- 
TE, sino para todos los demás verbos aritméti- 
cos que se analizarár a continuación. 


1 / Todos los nombres usados en las expresio- 
nes numéricas deben representar datos nu- 
méricos definidos en la DATA DIVISION 

2 / Todas las constantes usadas en las instruc- 
ciones aritméticas deben ser numéricas 

3 / La máxima longitud prevista para cada ope- 
rando de una expresión aritmética es de 18 
caracteres 

4 / La PICTURE y la cláusula USAGE de los di- 
versos operandos presentes en una expre- 
sión aritmética no deben necesariamente ser 
uniformes, puesto que durante las operacio- 
nes se efectúan automáticamente tanto el ali- 
neado al punto decimal (V) como la conver- 
sión del formato de cada operando. 

Esta conversión, como ya se ha indicado, 
procede según un preciso orden jerárquico 
(ver pág. 1014). 

Considérense, por ejemplo, los campos 


01 CAMPO-1 PIC S9(8)V9(37). 
01 CAMPO-2. COMP-1. 
01 CAMPO-3  COMP-2. 


Las operaciones de conversión activadas 
por la instrucción 


COMPUTE CAMPO-3 = 
CAMPO-1 + CAMPO-2 


son las siguientes: 
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m conversión de CAMPO-1 de DISPLAY a 
COMP-1 (efectivamente COMP-1 es la re- 
presentación a la prioridad más alta entre 
las de los operandos presentes) 

"m cálculo de CAMPO-1 s CAMPO-2 en códi- 
go COMP-1 

Ñ conversión del resultado anterior de 
COMP-1 en COMP-2. 


5 / El formato de los datos utilizados en una ex- 
presión aritmética y destinados a rápidas 
operaciones de cálculo, no puede contener 
los símbolos de predisposición para la im- 
presión. 


El verbo COMPUTE puede activar las cinco 
operaciones fundamentales de la matemática 
en una serie de operandos reunidos en una úni- 
ca expresión. Los verbos analizados a continua- 
ción, en cambio, permiten la activación de un 
solo tipo de operación sobre los datos descritos. 


El verbo ADD 


El verbo ADD, como sugiere intuitivamente su 
nombre, permite sumar, según tres diferentes 
modalidades, dos o más cantidades numéricas, 
dejando disponible el resultado en un campo de 
llegada. Un primer formato es el indicado en la 
tabla de abajo. 

Más allá de la aparente complejidad de la repre- 
sentación general, este formato es el más cer- 
cano a la estructura clásica de la suma. Efecti- 
vamente, considérense los siguientes campos 


01 SUMANDO-1 PIC S9(4)V9(2) COMP. 
01 SUMANDO-2 PIC S9(4)V9(2) COMP. 
01 SUMANDO-3 PIC S9(4)V9(2) COMP. 


Se quiere sumar su contenido y una constante 
física, igual a 3000, al contenido de un campo 
suma definido por 


01 SUMA PIC S9(4) COMP. 


n [ROUNDEL 


La operación buscada es codificable como si- 
gue: 


ADD SUMANDO-1 
SUMANDO-2 
SUMANDO-3 
3000 TO SUMA, 


Observando las descripciones de los diversos 
sumandos puede verse que cada uno de ellos 
prevé dos cifras decimales que se truncan du- 
rante la última operación de suma en el campo 
SUMA, ya que éste no prevé cifras decimales. 
Por tanto, si se desea tener en el campo SUMA 
un resultado redondeado y no truncado, basta 
con codificar de la siguiente manera: 


ADD  SUMANDO-1 
SUMANDO-2 
SUMANDO-3 
3000 TO SUMA ROUNDED, 


Por otra parte, el campo SUMA prevé el mismo 
número de caracteres de los sumandos, por lo 
que es muy probable que se verifique un des- 
bordamiento en su contenido, con la consi- 
guiente pérdida de obtención del dato, Con la 
misma lógica descrita en la instrucción COMPU- 
TE, puede controlarse el eventual desborda- 
miento de SUMA especificando la cláusula ON 
SIZE ERROR e indicando, mediante una frase 
imperativa, el tipo de acción a emprender en el 
caso de que se verifique esto. Por ejemplo: 


ADD SUMANDO-1 
SUMANDO-2 
SUMANDO-3 
3000 TO SUMA ROUNDED 
ON SIZE ERROR 
DISPLAY "CAMPO SUMA 
EN OVERFLOW' 
UPON CONSOLE 
GO TO FIN. 
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+ frase imperativa 
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Debe precisarse que el campo de llegada (en 
este caso SUMA), como está sujeto a cálculo, 
debe ser un campo numérico que en la PICTU- 
RE no contenga símbolos de predisposición pa- 
ra la impresión. Esta última limitación se invalida 
adoptando el segundo formato de la instrucción 
ADD indicado en la primera de las dos tablas de 
abajo. En este caso, efectuada la suma de los 
diversos sumandos, el resultado se desplaza en 
el campo de llegada nombre-de-dato-n. Por tan- 
to, este último, al no estar involucrado en opera- 
ciones de cálculo sino sólo de desplazamiento, 
puede contener símbolos de predisposición pa- 
ra la impresión. 

El último formato de la ADD aprovecha la posibi- 
lidad del Cobol de escribir los subcampos de 
los campos diferentes con nombres iguales. 
Considérense las dos descripciones siguientes: 


01 BLOQUE-1. 
05 MIEMBRO-1. 
10 MIEMBRO-11 PIC S9(3) COMP. 
10 MIEMBRO-12 PIC S9(2) COMP, 


05 MIEMBRO-2 PIC S9(4) COMP. 

05 MIEMBRO-3 PIC S9(6) COMP. 
01 BLOQUE-2. 

05 MIEMBRO-1. 


10 MIEMBRO-11 PIC S9(3) COMP. 
10 MIEMBRO-12 PIC S9(2) COMP. 
05 MIEMBRO-2 PIC S9(4) COMP. 
05 MIEMBRO-3 PIC S9(6) COMP. 


Si se desea sumar miembro a miembro todos 
los subcampos de BLOQUE-1 a los subcampos 
de BLOQUE-2 utilizando el primer formato de la 
instrucción ADD, debe escribirse: 


ADD MIEMBRO-11 OF BLOQUE-1 

TO MIEMBRO-11 OF BLOQUE-2. 
ADD MIEMBRO-12 OF BLOQUE-1 
TO MIEMBRO-12 OF BLOQUE-2. 
ADD MIEMBRO-2 OF BLOQUE-1 
TO MIEMBRO-2 OF BLOQUE-2. 
ADD MIEMBRO-3 OF BLOQUE-1 

TO MIEMBRO-3 OF BLOQUE-2. 


En cambio, adoptando el tercer formato de la 
ADD (ver la tabla al pie de página) puede obte- 
nerse el mismo resultado escribiendo 


ADD CORRESPONDING BLOQUE-1 
TO BLOQUE-2. 


A pesar de la inconfundible utilidad en este ca- 
so muy particular, debe observarse que la defi- 
nición de campos con nombres de subcampos 
iguales es desaconsejable. 

Siempre en función de la legibilidad y manejabi- 
lidad del programa, es interesante asignar nom- 
bres diferentes a los campos. De este modo se 
puede intuir fácilmente la función lógica (del 
nombre) y pueden seguirse a lo largo de todo el 
flujo del proceso (de la impresión que el Com- 
pilador emite: CROSS REFERENCE). 


SEGUNDO FORMATO DE LA INSTRUCCION ADD 


nombre-de-Jato-1 nombre-de-dato-2 
ADD 
constante-1 constante-2 


SIVING nombre-de-dato-n [ROUNDED] [ON SIZE ERROR frase-imperativa]. 


TERCER FORMATO DE LA INSTRUCCION ADD 


CORRESPONDING 
ADD 


CORR 


' nombre-de-dato-1 TO nombra-de-dato-2 


[ROUNDED] [ON SIZE ERROR frase-imperatival. 
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El verbo SUBTRACT 


El verbo SUBTRACT mantiene la misma implan- 
tación lógica que el verbo ADD, y permite restar 
del (FROM) contenido de un determinado cam- 
po el de uno o más campos. 

Todas las cláusulas que aparecen en los tres 
formatos de que dispone la instrucción respetan 
las reglas ya descritas para el verbo ADD. Con 
el fin de poner un ejemplo del uso del primer 
formato de la instrucción SUBTRACT (ver la pri- 
mera tabla de abajo), considérense los campos 


01 VALOR-INICIAL-1 PIC SY(4) COMP 
VALUE 3500. 

01 VALOR-INICIAL-2 PIC S9(4) COMP 
VALUE 1000. 

01 VALOR-INICIAL-3 PIC S9(4) COMP 
VALUE O. 

01 SUSTRAENDO-1 PIC S9(3) COMP 
VALUE 6830. 

01 SUSTRAENDO-2 PIC S9(3) COMP 
VALUE 280. 

01 SUSTRAENDO-3 PIC SY(3) COMP 
VALUE 2, 


La instrucción 


SUBTRACT 180 
SUSTRAENDO-1 
SUSTRAENDO-2 
SUSTRAENDO-3 


VALOR-INICIAL-1 
VALOR-INICIAL-2. 


FROM 


efectúa la suma de 180, SUSTRAENDO-1, 
SUSTRAENDO-2, SUSTRAENDOS3 y resta el re- 
sultado del contenido de los campos VALOR- 
INICIAL-1 y VALOR-INICIAL-2. 

En base a los valores implantados en los diver- 
sos campos, el resultado de la operación será: 


VALOR-INICIAL-1 = 2408 
VALOR-INICIAL-2 = — 92 


Si se desea dejar sin alteración el contenido del 
campo en que se han efectuado las restas y ob- 
tener el resultado de la operación en otro cam- 
po, debe adoptarse el segundo formato de la 
instrucción (segunda tabla de abajo). 


PRIMER FORMATO DE LA INSTRUCCION SUBTRACT 


SUBTRACT 
constante-1 


nombre-de-cdato-1 


nombre-de-dato-2 
constante-2 


FROM nombre-de-dato-m [ROUNDED] 
nombre-de-dato-n [ROUNDED] 


[ON SIZE ERROR frase-imperativa] 


SEGUNDO FORMATO DE LA INSTRUCCION SUBTRACT 


SUBTRACT 


constante-1 


FROM ( 


GIVING 


nombre-de-dato-1 


nombre-de-dato-2 
constante-2 
nombre-de-dato-m ] 


constante-m 
nompre-de-dato-n [ROUNDED] 


[ON SIZE ERROR frase-imperatival. 
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Utilizando los mismos campos del ejemplo ante- 
rior puede escribirse: 


SUBTRACT 180 
SUSTRAENDO-1 
SUSTRAENDO-2 
SUSTRAENDO-3 


FROM 
GIVING 


VALOR-INICIAL-1 
VALOR-INICIAL-3. 


El resultado de la operación será 


VALOR-INICIAL-1 = 3500 
VALOR-INICIAL-3 = 2048 


El tercer formato [ver tabla de abajo) es comple- 
tamente equivalente al análogo para el verbo 
ADD. Haciendo referencia a los grupos de da- 
tos BLOQUE-1 y BLOQUE-2, ya descritos para 
el verbo de suma, la instrucción 


SUBTRACT CORR BLOQUE-1 
FROM BLOQUE-2 


es equivalente a las s guientes: 


SUBTRACT MIEMBRO-11 OF BLOQUE-1 
FROM MIEMBRO-11 OF BLOQUE-2. 


SUBTRACT MIEMBRO-12 OF BLOQUE-1 
FROM MIEMBRO-12 OF BLOQUE-2. 


SUBTRACT MIEMBRO-2 OF BLOQUE-1 
FROM MIEMBRO-2 OF BLOQUE-2 


SUBRACT MIEMBRO-3 OF BLOQUE-1 
FROM MIEMBRO-3 OF BLOQUE-2. 


Suponiendo que los valores contenidos antes 
de la ejecución de la instrucción en los diversos 
subcampos fuesen los siguientes: 


BLOQUE-1  BLOQUE-2 
MIEMBRO-11 210 500 
MIEMBRO-12 31 63 
MIEMBRO-2 4780 1200 
MIEMBRO-3 370 25612 


la situación después de la ejecución de la ins- 
trucción será la siguiente: 


BLOQUE-1  BLOQUE-2 
MIEMBRO-11 210 290 
MIEMBRO-12 31 32 
MIEMBRO-2 4780 3580 
MIEMBRO-3 370 25242 


El verbo MULTIPLY 


El tormato más usado es el indicado en la prime- * 
ra tabla de la página siguiente, en la que el re- 
sultado de la multiplicación entre el primer fac- 
tor y el segundo se memoriza en el campo nom- 
bre-de-dato-3. 


El verbo DIVIDE 

El primer formato del verbo DIVIDE está descrito 
en la segunda tabla de la página siguiente. Este 
actúa de forma análoga al verbo MULTIPLY, o 
bien memoriza en un campo de llegada (nom- 
bre-da-dato-3) el resultado de la división entre 
el dividendo (nombre-de-dato-1 o constante-1) 
y el divisor (nombre-de-dato-2 o constante-2). 
Debe observarse que el cociente se calcula en 
una sección adecuada de la CPU con un nú- 
mero fijo de cifras decimales. Por tanto, si se ne- 
cesita el resultado redondeado, la operación de 
redondeo del cociente se realiza después de 
que éste se haya calculado con el número fijo 
de cifras decimales previstas. También debe te- 
nerse presente que la división de un número por 
cero dará lugar a un error de desbordamiento, 
que puede ser gestionado por el programador 
insertando la cláusula ON SIZE-ERROR. 


mombre-de-dato 10M. nombre-de-dato-2 


RROR frase-imperatival, 
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FORMATO DE LA INSTRUCCION MULTIPLY 


nombre-de-dato-* nombre-de-dato-2 
MULTIPLY BY 
constante-1 constante-2 


GIVING nombre-de-dato-3 [ROUNDED] 


[ON SIZE ERROR frase-imperativa]. 


PRIMER FORMATO DE LA INSTRUCCION DIVIDE 


nombre-de-dato-1 nombre-de-dato-2 
DIVIDE BY 
constante-1 constante-2 
GIVING nombre-de-dato-3 [ROUNDED] 
[ON SIZE ERROR frase-imperativa] 


Es superfluo indicar que el campo que alberga- 
rá el resultado deberá ser descrito en forma 
adecuada. Si el resultado de la operación es un 
número decimal y el campo de llegada está de- 
finido como entero, se tendrá la pérdida de to- 
das las cifras decimales. En otras palabras 


DIVIDE 10 BY 4 GIVING COCIENTE 


tendrá como resultado 
COCIENTE = 2.5 
si el campo de llegada está descrito por 
01 COCIENTE PIC S9V9, 
pero producirá 
COCIENTE = 2 


en el caso en el que COCIENTE sea descrito 
como sigue: 


01 COCIENTE PIC S9. 


En algunas aplicaciones puede ser útil tener co- 
mo resultado de una división tanto la parte ante- 
ra del cociente como el resto. 

A esta exigencia responde el segundo formato Display de LED (Light Emitting Diode) 
de la DIVIDE. aplicado a un digitalizador. 


Litton BEl 
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A título de ejemplo considérese el caso en que 
se quiere saber si el número contenido en el 
campo NUMERO es par o impar. 

Sabido es que todos los números pares son di- 
visibles por dos con resto igual a O, por lo que lo 
indicado puede realizarse como sigue: 


DIVIDE NUMERO BY 2 
GIVING COCIENTE 
REMAINDER RESTO. 


IF RESTO = 0 
DISPLAY “NUMERO PAR' 
UPON CONSOLE 


ELSE 
DISPLAY “NUMERO IMPAR' 
UPON CONSOLE. 


Verbos de transferencia y de 
manipulación de los datos 


Una de las instrucciones más usadas y al mis- 
mo tiempo más importantes del Cobol es la ins- 
trucción MOVE, que etectúa la transterencia de 
datos de un campo a otro entre los escritos en la 
DATA DIVISION del programa. Considerado el 
significado autoexplicativo del verbo MOVE 
(desplaza), esta instrucción ya se ha usado, en 
su formato más sencillo, en algunos de los ejem- 
plos indicados anteriormente. 

Antes de analizar en detalle la instrucción, debe 
subrayarse que el Compilador determina el tipo 
de MOVE a efectuar en los campos interesados 
en base a las características del campo de lle- 
gada. Es decir, según que el campo de llegada 
sea alfanumérico o numérico, la MOVE será al- 
fanumérica o numérica y, por tanto, trabajará se- 
gún modalidades precisas de transferencia, di- 
ferentes entre tipo y tipo. 

También existe un tercer tipo de MOVE, llamado 


MOVE por prospecto, orientado a la transferen- 
cia de datos en campos cuya PICTURE contie- 
ne caracteres de predisposición para la impre- 
sión (símbolos de editing). Estos símbolos per- | 
miten insertar o enmascarar algunos caracteres 
del contenido del campo en función de las exi- 
gencias estéticas, funcionales o de seguridad 
según como se haya estructurado la impresión. 
Considérese por ejemplo el caso en que el cam- 
po TOTAL descrito por 


01 TOTAL PIC 9(5)V9(4). 
deba indicarse en una fila de impresión. Porque, 
como se sabe, el caracter V representa sólo una 
posición virtual del punto decimal; si el campo 
en impresión tuviese la misma PICTURE no se 
sabría como establecer el valor real de TOTAL. 
Efectivamente, si el valor fuese 45781.2478, en 
impresión se tendría 


457812478 


Transfiriendo TOTAL en el campo TOTAL- 
IMPRIME 
01 TOTAL-IMPRIME PIC 9(5).9(4). 

en cambio se tiene la representación real del 
número contenido en TOTAL. Por tanto, el ca- 
rácter - (punto) es un carácter de predisposición 
a la impresión. Observemos que contrariamente 
al símbolo V, el punto ocupa una posición de 
memoria: la ocupación total de TOTAL-IMPRI- 
ME es de 10 caracteres. 


El verbo MOVE 


La instrucción MOVE tiene dos formatos (ver las 
tablas de la página siguiente). 
Es interesante subrayar que los dos formatos 
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son válidos tanto para MOVE alfanuméricas co- 
mo para MOVE numéricas o por prospecto, y 
que la calificación de la instrucción está ligada a 
las descripciones de los campos de llegada in- 
teresados. 

En general, la MOVE transfiere el contenido de 
nombre-de-dato-1 o una constante en uno o 
más campos de llegada. 

Considérese por ejemplo el campo 


01 PARTIDA PIC X(20). 


y se quiere transferir el contenido en: 


01 LLEGADA-1 PIC X(20). 
01 LLEGADA-2 PIC X(20). 
01 LLEGADA-3 PIC X(20). 


En este caso puede escribirse 


MOVE PARTIDA TO LLEGADA-1. 
MOVE PARTIDA TO LLEGADA-2, 
MOVE PARTIDA TO LLEGADA-3. 


o bien 


MOVE PARTIDA TO LLEGADA-1 
LLEGADA-2 
LLEGADA-3. 


Las dos escrituras son completamente equiva- 
lentes, puesto que en la segunda, el Compilador 
desarrolla la forma abreviada en tres MOVE se- 
parados. 

Por tanto se aconseja adoptar la forma abrevia- 
da, puesto que se hace más evidente la opera- 
ción de MOVE simultánea del mismo campo a 
más campos de llegada. En el formato 
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MOVE CONSTANTE TO nombre-de-dato- 2 
nombre-de- dato-3 


«Constante» debe ser una constante alfanuméri- 
ca o numérica según cuál sea el tipo de cam- 
po de llegada. 

En base a lo dicho a propósito de las MOVE 
múltiples, es evidente que la compatibilidad de- 
be ser respetada para cada uno de los campos 
de llegada. El siguiente ejemplo 


WORKING-STORAGE SECTION. 
01 LLEGADA-1 PIC X(20). 
01 LLEGADA-2. 
05 CAMPO-1 PIC 9(10). 
05 FILLER PIC X(10). 
PROCEDURE DIVISION. 
INICIO. 
MOVE 
"INICIO PROCESO' TO LLEGADA-1, 
CAMPO-1. 


es evidentemente erróneo, puesto que la cons- 
tante alfanumérica INICIO PROCESO no puede 
ponerse en un campo numérico como CAMPO- 
1, mientras que es correcto moverla en 


LLEGADA-1 
La transferencia de los datos en uno o más 


campos de llegada no destruye el contenido del 
campo de partida, que queda inalterado hasta 
que no se modifique voluntariamente. Tanto el 
campo de partida como el de llegada pueden 
ser campos elementales o compuestos. 
Recordemos a propósito que un dato compues- 
to es asumido en su conjunto como alfanuméri- 
co, independientemente de las descripciones 
de los datos componentes. 

Seguidamente se analiza el siguiente ejemplo: 


DATA DIVISION, 


FILE SECTION. 

FD FICHA 
LABEL RECORD OMITTED. 

01 FICHA PIC X(3) 
05 TIPO-FICHA PIC X(3) 
05 DESCRIPCION. 

10 NOMBRE PIC X(10). 
10 APELLIDO PIC X(15). 
05 FECHA-NACIMIENTO. 
10 DIA PIC 9(2). 
10 MES PIC 92). 
10 AÑO PIC 92). 
05 SEXO PIC X. 
05 FILLER PIC X(45). 
+ 
* 
WORKING-STORAGE SECTION. 
77 AUXILIAR-FICHA PIC X(80). 


78 AUXILIAR-DESCRIPCION - PIC X(25). 
DA rmirinvisries 


PROCEDURE DIVISION. 
INICIO. 


+ 
ara EJEMPLOS DE TRANSFERENCIA 


+ 


sk 

MOVE SPACES TO AUXILIAR-FICHA 
MOVE FICHA TO AUXILIAR-FICHA 
MOVE AUXILIAR-DESCRIPCION 

TO DESCRIPCION. 
TO TIPO-FICHA. 

TO ANO, 


MOVE 'ABC' 
MOVE 83 


Como puede observarse: 
MOVE SPACES TO AUXILIAR-FICHA 


desplaza la constante figurativa SPACES en un 
campo elemental 


MOVE FICHA TO AUXILIAR-FICHA 


transfiere el campo compuesto FICHA en un 
campo elemental 


MOVE AUXILIAR-DESCRIPCION 
TO DESCRIPCION 


desplaza un campo elemental en un campo 
compuesto 


MOVE 'ABC' TO TIPO-FICHA 


transfiere la constante alfanumérica ABC en un 
campo elemental 


MOVE 83 TO AÑO 


implanta en el campo AÑO la constante numéri- 
ca 83. 

Para entrar en el análisis detallado de la instruc- 
ción MOVE es necesario presentar una impor- 
tante precisión correspondiente a las constan- 
tes figurativas. Como ya se ha indicado, éstas 
son: 


SPACE (SPACES) 

ZERO (ZEROS o ZEROES) 
LOW-VALUE — (LOW-VALUES) 
HIGH-VALUE — (HIGH-VALUES) 
QUOTE (QUOTES) 

ALL 


De estas, SPACE (o SPACES) se considera alfa- 
bética, ZERO (o ZEROS, o ZEROES) se asimila 
a una constante numérica, mientras que LOW- 
VALUE y HIGH-VALUE se consideran como 
pertenecientes a la categoría de los datos alfa- 
numéricos. 


MOVE alfanumérica. la MOVE alfanumérica 
efectúa la transferencia de los datos en la se- 
cuencia indicada en el siguiente esquema 


o bien, el campo de llegada se llena de izquier- 
da a derecha copiando carácter por carácter el 
contenido del campo de partida. 

En el caso en que el campo de partida tenga 
una longitud inferior a la del campo de llegada, 
este último se llena con blanks. 
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Perkin-Elmere 


Empleo del procesador electrónico en una bolsa de valores. 


Por ejemplo, 
01 PARTIDA PIC X(3) VALUE 'ABC”, 
01 LLEGADA PIC X(6) VALUE 'UVZXYW", 
PROCEDURE DIVISION. 
A. 
MOVE PARTIDA TO LLEGADA. 
La situación antes de la instrucción MOVE es la 
siguiente 


PARTIDA A¡B.,C€ 


LLEGADA OEA AY 


mientras que inmediatamente después es 


LLEGADA ARIBAOS 


PARTIDA 


Como puede observarse, la transferencia de los 
caracteres de PARTIDA en LLEGADA ha provo- 
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cado el llenado del campo con blanks a la dere- 
cha que han recubierto el contenido anterior. 
Si se desea invertir esta modalidad de transfe- 
rencia (o bien hacer de manera que el campo 
LLEGADA sea llenado con el contenido de PAR- 
TIDA empezando desde la derecha y llenado 
con blanks a la izquierda) el campo de llegada 
debe contener en la propia descripción la cláu- 
sula JUSTIFIED RIGHT (JUST). 

Utilizando todavía el campo del ejemplo anterior 
se tiene: 


01 PARTIDA PIC X(3) VALUE 'ABC”. 
01 LLEGADA PIC X(6) JUST VALUE 

'UVZXYW' 
PROCEDURE DIVISION, 


A. 
MOVE PARTIDA TO LLEGADA. 


Situación antes de la MOVE 


PARTIDA 


LLEGADA AV EZA A AN, 


después de la MOVE 


PARTIDA 


LLEGADA 


Considérese ahora el caso en que el campo de 
partida tenga una longitud superior a la del 
campo de llegada. Por ejemplo, 


01 PARTIDA PIC X(6) VALUE 'ABCDEF”. 
01 LLEGADA PIC X(3) VALUE SPACES. 


En este caso, la situación que precede a la eje- 


cución de la instrucción MOVE PARTIDA TO 
LLEGADA es la siguiente 


[A/B¡C¡D¡E¡F| 


PARTIDA 


LLEGADA [ME] 


mientras que, después de la ejecución de la ins- 
trucción, se tiene 


PARTIDA (ABC ¡D¡E/,F]| 


LLEGADA [A,B,C] 


oO sea se ha producido un truncado a la dere- . 


cha de todos los caracteres que excedían las 
dimensiones de LLEGADA. 


CAMPO DE PARTIDA 


* Sólo si el campo de partida es entero 


En cambio, si la definición del campo LLEGADA 
hubiese sido 


01 LLEGADA PIC X(3) JUST VALUE SPACES. 


la situación final después de la instrucción MO- 
VE habría sido 


PARTIDA 


LLEGADA [DEF] 


Es decir, el truncado de los caracteres en exce- 
so se habría producido a la izquierda, después 
del llenado (a la derecha) del espacio d sponi- 
ble. Una síntesis de la MOVE de tipo alfanuméri- 
co descrita hasta ahora puede verse en la tabla 
de abajo. 

De la observación de la tabla puede verse que 
un campo compuesto puede albergar datos 
procedentes de cualquier otro tipo de campo. 
Una excepción a esta regla general viene de los 
números en coma flotante (USAGE COMP-1 y 
COMP-2). 

Esta excepción no está evidenciada en la tabla; 
sin embargo, es interesante subrayar el caso 
con el siguiente ejemplo. 

Considérense los dos campos 


01 NUMERO COMP-1. 
01 CAMPO, 
05 SUBCAMPO-1 PIC 9(4). 
05 SUBCAMPO-2 PIC X(3). 
05 FILLER PIC X. 


CAMPO DE LLEGADA 


ven 


1029 


La instrucción 
MOVE NUMERO TO CAMPO 


es errónea, puesto que el campo NUMERO tie- 
ne la codificación interna en coma flotante de 
simple precisión. 

Además obsérvese que el asterisco que apare- 
ce en la tabla es para indicar que la transferen- 
cia de un campo elemental numérico en un 
campo alfanumérico sólo es posible si el campo 
de partida es entero. 

La USAGE de este campo puede ser indiferen- 
temente COMP o DISPLAY; también en este ca- 
so permanece la imposibilidad de utilizar como 
campo de partida un campo de coma flotante. 
Durante la transferencia de un campo numérico 
a un campo alfanumérico se efectúa la conver- 
sión en el formato del campo de llegada, de 
acuerdo con las modalidades descritas para es- 
te tipo de campos. Para aclarar esto, considére- 
se el campo 


01 LLEGADA PIC X(3). 


y las instrucciones 


MOVE 38 TO LLEGADA. 
MOVE 7425 TO LLEGADA. 


Después de la primera MOVE, el contenido de 
llegada será 


mientras que después de la segunda, el campo 
tendrá la siguiente configuración 


Debe observarse explícitamente que en el caso 
en que se desee controlar si el campo LLEGA- 
DA contiene el número 38, la verificación debe 
hacerse sobre los tres caracteres del campo. Es 
decir, la secuencia de instrucciones 


MOVE 38 TO LLEGADA. 
IF LLEGADA = '38' 
PERFORM IGUAL-38. 


nunca conducirá a la ejecución de la SECTION 
IGUAL-38. 


1030 


17) '*4424) AE - 
Prueba de las placas de unidades para disco 
flexible. 

Efectivamente, después de la ejecución de la 
instrucción MOVE 38 TO LLEGADA, el conteni- 
do el campo LLEGADA tendrá la siguiente con- 
figuración: 


y no 38; la forma correcta del ejemplo anterior 
es la siguiente: 


MOVE 38 TO LLEGADA. 
IF LLEGADA = '38 ' 
PERFORM IGUAL-38. 


Debe observarse explícitamente que lo expues- 
to es válido también si el campo LLEGADA está 
justificado a la derecha (JUSTRIGHT); es decir, 
' 38' no es igual a '38'. 


La cláusula ALL. Si se tiene necesidad de lle- 
nar todo un campo con una serie de caracteres, 
existe el siguiente formato de la MOVE: 


MOVE ALL caracteres TO nombre-de-campo. 


y. Pickerell/Marka 


El diagnóstico 
computerizado (3) 


La ecografía es un método de diagnóstico ba- 
sado en la producción de imágenes de los deta- 
lles anatómicos mediante sondas especiales 
que emiten ondas ultrasonoras. Los ecos refleja- 
dos en diferente medida por las diversas estruc- 
turas anatómicas se procesan con un micropro- 
cesador y se proyectan en una pantalla, sobre 
la que se crea una imagen que reproduce fiel- 
mente las características morfológicas y estruc- 
turales de la parte o del órgano examinado. Las 
imágenes que aparecen en la pantalla pueden 
fotografiarse y analizarse cómodamente, y per- 
miten formular juicios y emitir diagnósticos con 
gran precisión y fiabilidad. 

Nació a principios de los años setenta, pero sólo 
en la mitad de la última década fueron desarro- 
lladas en Europa y en EE.UU. las técnicas que 
permitieron añadir a los actuales aparatos el 
proceso en tiempo real de imágenes de órga- 
nos en movimiento. Las otras ventajas de los 
aparatos ecográficos son el coste limitado con 
respecto a otros sistemas de exploración, las re- 
ducidas dimensiones y la facilidad de empleo. 
Actualmente, las unidades ecográficas multidis- 
ciplinarias como la SDU 3000 están dotadas de 
una amplia gama ae transductores para oxá 
menes estáticos y dinámicos de tipo pealátrico, 
oftalmológico, obstétrico y para el examen de 
órganos profundos y superficiales en general. 
Existen fundamentalmente dos tipos de sondas 
para exploraciones dinámicas: el tipo lineal de 
doble focalización (geométrica y electrónica), 
para exámenes panorámicos del abdomen y 
para obstetricia, y el tipo de sector, que permite 
eliminar las dificultades de acceso a órganos y 
aparatos determinados. Las variaciones sobre 
el iema, por tanto, son innumerables. 

Los sistemas multidisciplinarios de base están 
dotados de videocinta incorporado, de fotocá- 
maras para la producción de copias sobre pa- 
pel, de sondas bióplicas y de perforadoras para 
el registro de los datos en cinta de papel, todo 
contenido en un pequeño mueble del tamaño 
de un frigorífico, cómodamente transportable. 
Normalmente se alimentan con la tensión de 
red, y tienen unas características de resolución 
y penetración que parecían una meta utópica 
para los imponentes aparatos que se construían 
hace menos de diez años. Una sonda sectorial 


tiene una penetración que puede alcanzar 
30 em y una resolución angular de sólo 12”. Pe- 
ro los límites de la miniaturización todavía están 
bien lejos de haberse alcanzado. El sistema So- 
no Diagnost R1000 es la demostración palpa- 
ble: basta pensar que pesa menos de 12 kg, 
comprendida la fotocámara (ver foto de abajo). 
El monitor presenta imágenes de 10 x 8 cm 
producidas procesando la exploración tomada 
25 veces por segundo de una sonda lineal que 
emite un haz ultrasonoro de 2,2 a 3 MHz. Si se 
desea, el aparato también puede funcionar en el 
campo, puesto que basta conectarlo a la bate- 
ría del automóvil. El precio y la sencillez de ope- 
ración ponen los sistemas de este tipo al alcan- 
ce de todos los consultorios médicos. 

Las técnicas de exploración de rayos X y las' . 
que utilizan ultrasonidos dan una imagen morto 
lógica de los órganos examinados que se limita 
a la reproducción, si bien minuciosa, del detalle 
anatómico, aunque no proporciona informacio- 
nes sobre su funcionalidad. El diagnóstico nu- 
clear nació precisamente para proporcionar una 
respuesta a esta última exigencia, y tiene como 


El Sono Diagnost R1000, aparato portátil 
para exploraciones ecográficas. 


Philips 


Philips 


Aparato ecográfico transportable 
Sono Diagnost Universal 3000 (SDU 3000). 
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finalidad principal el estudio de la funcionalidad 
fisiológica de los órganos, sin limitarse a la pro- 
ducción de una imagen anatómica estática. La 
exploración de tipo nuclear requiere la introduc- 
ción preliminar en el organismo de trazadores 
radiactivos gamma que se metabolizan en el ór- 
gano o en el particular sistema anatómico objeto 
de exploración. Seguidamente se procede a la 
detección y a la medición de la intensidad de 
las radiaciones emanadas por los trazadores, 
con lo cual es posible seguir todo el proceso de 
metabolización, con la síntesis de un mapa de 
las concentraciones del trazador en los distintos 
órganos o en las diversas partes de un mismo 
Órgano. : 

El diagnóstico fundado en el empleo de los ra- 
dioisótopos induce dosis de radiación inferiores 
a las que se aplican a los pacientes en el curso 
de una radiografía normal. También por este 
motivo el screening de tipo nuclear tiende a di- 
fundirse cada vez más, especialmente en apli- 
caciones que contemplan el estudio del desa- 
rrollo de los procesos fisiológicos que se produ- 
ce en los órganos. 

Las novedades derivan también en ese sector 
de las posibilidades ofrecidas por la computeri- 
zación de los aparatos. Desde hace veinticinco 
años, el instrumento fundamental de un labora- 
torio de medicina nuclear es la gamma-cámara, 
pero sólo en los últimos cinco años, la aplica- 
ción del procesador en el conirol de la explora- 
ción ha transiormado este instrumento en un po- 
tente sistema de diagnóstico, con el cual es po- 
sible detectar también imágenes tomográficas 
axíales. 

En el sistema Gamma diagnosttomo, que prevé 
la posibilidad de realizar el total body scanning 
y la tomografía axial digitalizada, el detector 
gamma propiamente dicho está suspendido por 
un brazo articulado y está dotado de un cristal 
destellador de un diámetro de 40 cm por 9 mm 
de espesor. Inmediatamente delante del cristal 
se encuentra una batería de 01 folornulliplica- 
dores, que transforma las señales luminosas, 
producidas en el cristal de la detección de los 
rayos gamma emitidos por el trazador, en seña- 
les eléctricas, las cuales a su vez se procesan 
para proporcionar la imagen deseada. 

El sistema de adquisición de datos tiene ina ve- 
locidad de repetición de 40 imágenes por se- 
gundo, con posibilidad de adaptarse simultá- 
neamente a dos gamma-cámaras. La consola 
de control y de adquisición y proceso de los da- 
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tos está provista de un monitor de 512 x 512 
pixels, expandible a 640 x 256 para el total- 
body, y hay disponibles 256 niveles de intensi- 
dad. El sistema de proceso incluye dos micro- 
procesadores especializados gamma proces- 
sor 190 en paralelo, con 400 kbytes de memoria 
RAM expandibles a 528, programables en For- 
tran, RTL2, Assembler y PMCL (un lenguaje de 
programación creado expresamente para las 
aplicaciones biomédicas). El hardware se com- 
pleta con dos memorías masivas, una de discos 
de 24 Mbytes y otra de floppy-disks de 1,2 Mby- 
tes. El procesador permite, como se ha dicho, la 
formación de la imagen tomográfica aigitaliza- 
da, que puede preseniarse en un monitor de co- 
lor (foto grande de encima). La posibilidad de 
terminar la línea periférica de la sección exami- 
nada permite, entre otras cosas, corregir los da- 
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Arriba, posicionado 
del detector de la 
gamma-cámara 
«Gamma Diagnost 
Tomo». A la 
izquierda, imagen 
tomográfica 
digitalizada 
proporcionada por 
los circuitos de 
proceso de la 
gamma-cámara; se 
presenta una sección 
abdominal. En la 
parte derecha de la 
pantalla se ve la 
escala de 
concentración del 
trazador. 
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tos teniendo en cuenta la absorción de los rayos 
gamma por parte de los tejidos, mejorando de 
forma determinante la veracidad del mapa de 
aistribución del trazador. Imágenes tomadas en 
aliferentes momentos pueden llamarse simultá- 
neamente en el monitor para verificar, con una 
simple mirada, la evolución del proceso de con- 
centración del trazador en un determinado ór- 
gano. Además, el aparato está completado con 
un sistema para la producción de copias en pa- 
pel o en soporte transparente. 

Sistemas como el ilustrado han permitido elimi- 
nar los riesgos asociados a los tradicionales sis- 
temas de verificación de la funcionalidad de los 
órganos, como en el caso del cateterismo car- 
diaco, y proporcionan una contribución de pri- 
mer orden a la diagnosis de las afecciones de 
los pulmones, de los riñones, el corazón, el hí- 
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gado, el páncreas, el sistema óseo y el sistema 
endocrino. 

La termografía es una técnica de exploración 
relativamente reciente, El funcionamiento de los 
termógrafos de la primera generación (se habla 
sólo de algunos años) se basaba en el empleo 
de placas fotográficas sensibles al inflarrojo, 
que se exponían e impresionaban directamente 
con el calor corporal del paciente. Así se apro- 
vechaba la propiedad común a muchos tenó- 
menos inflamatorios y patológicos de alterar lo- 
calmente la temperatura corporal, incluso si es 
de fracciones de grado. 

Actualmente, esta técnica de exploración se ba- 
sa en el empleo de células ¡otovoltaicas sensi- 
bles al infrarrojo y en circuitos de proceso numéó 

rico de las señales emitidas por éstas. En lugar 
de las imágenes fotográficas se generan imáge- 
nes en colores en un monitor de grandes dimen- 
siones, eventualmente archivables en copia so- 
bre papel o en forma digitalizada en una memo- 
ría masiva. 

La estructura del panel de control de un termó- 
grafo de presentación digital se reproduce arr- 
ba. La cámara termográfica de alta resolución 
está equipada con una célula fotovoltaica de 
indio-antimonio refrigerada con nitrógeno líqui- 
do; está montada sobre un sistema de soporte 
que incluye los monitores eléctricos que contro- 
lan los movimientos de elevación (+ 25%), de 
orientación (+ 100%) y de nivel (50 a 180 cm). La 
resolución espacial de la célula permite distin- 
guir detalles subtendidos por un ángulo interior 
a 0,002 radianes (aproximadamente 7'), mien- 
tras que la resolución térmica permite diferen- 
ciar detalles cuya temperatura sólo difiere 
0,08 *C. El tempo de exposición necesario para 
que la célula pueda proporcionar una respuesta 
completa es de 1 s. 
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El panel de mando y 
de control de un 
aparato para la 
termografía de 
imágenes 
digitalizadas. A la 
derecha pueden 
verse el joystick de 
posicionado y los 
cursores de 
delimitación del 
campo de 
observación. 


Las señales emitidas se envían a través de un 
cable al sistema electrónico, que procesa una 
matriz numérica del campo de observación y la 
envía a un monitor de diez colores de 12”. Sobre 
este último “se presenta una matriz de 
312 x 240 píxels, junto con la escala de los co- 
lores y con indicaciones que permiten calibrar 
con exactitud la escala de las temperaturas. 
La temperatura de umbral (black level) puede 
regularse con continuidad entre 15 y 40 “C; to- 
dos los detalles cuya temperatura resulta inferior 
al black level se presentan en negro. La ampli- 
tud del campo por encima del black level (ran- 
ge), en cambio, puede regularse separadamen- 
te a los valores 2, 3, 4, 5, 8, 10, 15 C. 
Después de presentar la imagen termográfica 
es posible memorizarla y reclamarla sobre una 
parte del monitor. Esto permite, entre otras co- 
sas, evidenciar en el mismo momento detalles 
anatómicos que no pueden entrar simultánea- 
mente en el campo visual de la cámara, como 
por ejemplo los dos lados de la cabeza (foto de 
la parte superior de la página siguiente) o el dor- 
so y la palma de una mano. 

La imagen presentada puede procesarse de dli- 
ferentes maneras. Una primera función del cir- 
culto electrónico permite presentar dos ¡soter- 
mas, cada una de amplitud igual al 3% del ran- 
ge regulado, er dos colores diferentes. Elegido 
el nivel de la primera isoterma (IS0-1), el de la 
segunda puede variarse a voluntad en el range 
superior, y la diferencia de nivel entre las dos se 
presenta automáticamente en el monitor (DIFF). 
Unos cursores adecuados en el panel de con- 
trol permiten posicionar en el monitor un recua- 
dro sobre una región de interés particular, para 
la cual el calculador determina en tiempo real 
dicho índice termográfico (INDEX). Pero la ca- * 
racterística más interesante la ofrece la posibili- 


29.2 BansE: 6 
+ INDEX: , 


PH PS x .LEVEL:26.2 RANGE: 8 
td A a 


dad de calcular y presentar el perfil térmico refe- 
rido a una línea horizontal que puede situarse 
libremente en el monitor (foto de arriba). La cur- 
va de temperatura se procesa en base a las se- 
ñales térmicas digitalizadas que se refieren a los 
pixels cubiertos por la línea de selección. 

Las características de los aparatos termográfi- 
cos digitalizados han ampliado las capacida- 
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La imagen 
termográfica 
computerizada se 
presenta en pantalla 
de televisión y puede 
registrarse en 
soporte magnético. 
Al lado, arriba, dos 
imágenes 
termográficas 
diferentes de un tórax 
femenino; debajo, las 
manos de un 
paciente en una 
comparación 
termográfica: la 
reducida 
vascularización.de la 
mano izquierda 
puede cuantificarse 
mediante el perfil 
térmico visible en la 
foto de al lado. Arriba 
se ha realizado una 
comparación análoga 

¿entre los dos lados 

a del rostro. 


des de diagnóstico de la termografía. Además 
de la tradicional aplicación al diagnóstico del 
cáncer de mama, tener termogramas en tiempo 
real, separados por.un segundo, permite cuan- 
tificar también las variaciones térmicas debidas 
al suministro de fármacos, obteniendo datos úti- 
les para efectuar estudios en profundidad en los 
campos reumatológico, fisiológico, etc. 
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Considérese por ejemplo el campo 
01 LLEGADA PIC X(6). 


Para mayor claridad indicamos en los siguientes 
ejemplos tanto los efectos de la MOVE ALL co- 
mo los de la MOVE sencilla, al frente del mismo 
carácter o cadena de caracteres a transferir. 


MOVE ALL 's' TO LLEGADA 
MOVE 's' TO LLEGADA 


TO LLEGADA 


'MOVE ALL '6' 


TO LLEGADA 


MOVE '6' 

MOVE ALL '31' TO LLEGADA 
[8,1,38,1,8,1] 

MOVE '31' TO LLEGADA 
EA 

MOVE ALL ' TO LLEGADA 
Ets 5) 

MOVE ' ' TO LLEGADA 
E E] 

MOVE All '345' 


TO LLEGADA 


La última instrucción muestra cómo el Compila- 
dor respeta las repeticiones de la cadena de ca- 
racteres indicada hasta el llenado del campo, 
truncando los caracteres en exceso. 
Obsérvese que los blanks en la cadena de ca- 
racteres a transferir se tratan como cualquier 
otro carácter, sea cual sea la posición en que se 
encuentren en el ámbito de la combinación. 


MOVE numérica. Como ya se ha subrayado, la 
operación de transferencia de datos necesita un 
buen conocimiento de los mecanismos que la 
gobiernan. Saber cómo el Compilador «ins- 
truye» el calculador en la ejecución de estas ins- 
trucciones tiene una importancia particular en la 
transferencia de los datos numéricos, puesto 
que la veracidad de los resultados está directa- 
mente ligada al correcto uso de las instruccio- 
nes y al adecuado dimensionado de los cam- 
pos interesados. 

Téngase presente que, mientras la MOVE de ti- 


1036 


po alfanumérico descrita anteriormente no entra 
en el significado de los datos, la MOVE numéri- 
ca debe tener en cuenta la USAGE del campo 
de llegada y otros factores necesarios para un 
correcto tratamiento de los datos, como el signo 
y la posición del punto decimal. 

La transferencia de tipo numérico se realiza si- 
guiendo cinco pasos funcionales: 


1 / Alineado al punto decimal 

2 / Llenado del campo de llegada 

3 / Truncado de las cifras en exceso o comple- 
tado del campo de llegada 

4 / Conversión del formato de partida en el de 
llegada 

5 / Tratamiento del signo. 


1 /Alineado al punto decimal. Si se quiere 
transferir un número decimal en un campo dota- 
do de PICTURE adecuada, es intuitivo que las 
cifras enteras deberán ocupar el espacio reser- 
vado para ellas a la izquierda del punto decimal 
y las cifras decimales a la derecha. 
Supóngase que debe transferirse el campo 
NUM-PARTIDA en NUM-LLEGADA, donde: 


01 NUM-PARTIDA 
01 NUM-LLEGADA 


PIC S9(4)V9(3). 
PIC SYA6)VIA(3). 


la instrucción 


MOVE NUM-PARTIDA TO NUM-LLEGADA. 


realiza el alineado según el esquema siguiente 
(el símbolo a representa la posición virtual del 
punto decimal en la memoria): 


NUM-PARTIDA 


NUM-LLEGADA 


Debe observarse que el alineado al punto deci- 
mal se realiza normalmente, incluso en el caso 
en que la PICTURE del campo de partida y del 
campo de llegada no tengan el símbolo V. Para 
el Compilador, las descripciones 


01 NUMERO-1 PIC S9(4). 
01 NUMERO-2 PIC SP(3)9(5). 
01 NUMERO-3 PIC S99P(5). 


son equivalentes a las que ahora se indican: 


01 NUMERO-1 PIC S9(4)V. 
01 NUMERO-2 PIC SVP(3)9A5). 
01 NUMERO-3 PIC S99(5)V. 


Es evidente que a los campos del ejemplo, en- 
tendidos en la forma anterior, se les pueden 
aplicar las modalidades de alineado anterior- 
mente descritas. 

Por otra parte, téngase en cuenta el hecho de 
que el punto decimal presente en una constante 
numérica está alineado de la misma manera 
que una posición virtual. Por ejemplo, si el cam- 
po LLEGADA está descrito por 


01 LLEGADA PIC SA(4)V9(3). 


la instrucción 
MOVE 875.164 TO LLEGADA. 


comporta el alineado esquematizado en la si- 
guiente figura: 


87 st 


L L ] y 


2 / Llenado del campo de llegada. Después de 
haber alineado el punto decimal de los dos 
campos interesados, la parte entera del campo 
de llegada se llena partiendo de la derecha y 
procediendo hacia la izquierda, mientras que en 
la decimal, las cifras se copian partiendo de la 
izquierda. 

El llenado del campo de llegada se produce se- 
gún la secuencia indicada en el siguiente es- 
quema: 


A A AN a 


: DECENIO 
m ' T 


3 / Truncado o completado del campo de lle- 
gada. Análogamente a lo que sucede en la MO- 
VE de tipo alfanumérico vista anteriormente, si 
los campos interesados no tienen la misma lon- 
gitud, se produce el llenado hasta completar el 
campo de llegada o el truncado de las cifras 
que exceden la máxima longitud del campo re- 
ceptor. 

Considérense los dos campos 


Panel de control del calculador Univac 1100/8. 


01 NUM-PARTIDA PIC S9(3)V9 
VALUE 436.2. 
01 NUM-LLEGADA PIC S9(6)V9(S) ' 


VALUE 123456.789. 


La configuración de los dos campos antes y 
después de la ejecución de la instrucción MO- 
VE NUM-PARTIDA TO NUM-LLEGADA es la si- 
guiente 


NUM-PARTIDA NUM-LLEGADA 


antes de la MOVE 


Como puede observarse, al ser el campo de 
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partida de longitud inferior con respecto a la del 
campo de llegada, se ha tenido un llenado de 
este último a la izquierda y a la derecha de las 
cifras transferidas, con ceros no significativos. 
En el caso opuesto, si el campo de partida tiene 
una longitud superior a la del campo receptor, 
se realiza un truncado del valor transferido. Este 
truncado, teniendo presente la modalidad gene- 
ral de transferencia de los datos en campos nu- 
méricos, puede afectar tanto a las cifras enteras 
como a las decimales. 

Para aclarar el concepto considérense los ejem- 
plos indicados en la figura de abajo, que tienen 
por objeto los campos 


01 NUM-PARTIDA PIC S9(4)V9(2) 
VALUE 1436.78. 
01 LLEGADAS. 
05 NUM-LLEGADA-1 
05 NUM-LLEGADA-2 
05 NUM-LLEGADA-3 
05 NUM-LLEGADA-4 PIC SV9. 


05 NUM-LLEGADA-5 PIC S9(6). 


En estos ejemplos puede verse que una opera 
ción de transferencia con un campo de llegada 
dimensionado incorrectamente puede conducir 
a resultados muy alejados de los esperados. 
Efectivamente, el truncado efectuado por la 
MOVE, si se aplica a la parte entera del número, 
hace perder las cifras más significativas, alte- 
rando completamente el valor tratado. 

Es muyy esclarecedor el último ejemplo indicado, 
en el que el valor 1000000.796 después de la 
transferencia se convierte en 0. 


PIC S9(3)V9(2). 
PIC S9(3)V9(4). 
PIC S9(4). 


4 / Conversión del formato. Como ya se ha in- 
dicado, en la lransferencia de los datos en cam- 


pos numéricos, el Compilador puede tratar 
campos con codificación interna diferente. 

Es decir, conociendo la USAGE implícita o ex- 
plícita de los campos de partida y de llegada, el 
Compilador puede convertir oportunamente los 
datos en el formato que se desea tener en el 
campo receptor. 

La conversión de formato se realiza, sobre el va- 
lor ya truncado eventualmente del dato, en un 
área interna del Compilador. 

Por tanto, es intuitivo que obligar al Compilador 
a convertir una gran cantidad de datos equivale 
a penalizar la eficiencia del programa; la ejecu- 
ción de las adecuadas rutinas de conversión 
por un lado, y la ocupación de memoria adicio- 
nal dedicada a las áreas de conversión por otro, 
conducen a un incremento del tiempo de proce- 
so y de la ocupación de memoria central. 

Por tanto, es aconsejable describir los campos 
numéricos de manera homogénea, recurriendo 
a la conversión de formato sólo cuando no sea 
posible proceder de otra forma. 


5 / Tratamiento del signo algebraico. La última 
operación que el Compilador efectúa en el cam- 
po de llegada es la correspondiente al trata- 
miento del signo algebraico. 

Si el campo contiene en la propia PICTURE el 
símbolo S, el signo algebraico del valor transfe- 
rido se codifica oportunamente de acuerdo con 
la codificación interna utilizada. Y viceversa, en 
ausencia del símbolo S, la instrucción MOVE só- 
lo transfiere el valor absoluto del dato. 

Se aconseja utilizar siempre el símbolo S en la 
descripción de campos numéricos. Esto es po- 
sible sin ninguna contraindicación, salvo poquí- 
simas excepciones que se indicarán a continua- 


TRUNCADOS EN LA TRANSFERENCIA DE DATOS 


Contenidos del campo de llegada 
después de la MOVE 


Instrucciones 
de transferencia 


MOVE NUM-PARTIDA TO NUM-LLEGADA-1 
MOVE NUM-PARTIDA TO NUM-LLEGADA-2 
MOVE NUM-PARTIDA TO NUM-LLEGADA-3 
MOVE NUM-PARTIDA TO NUM-LLEGADA-4 


MOVE 1000000,796 TO NUM-LLEGADA-5 


1038 


CAMPO DE LLEGADA 


CAMPO DE PARTIDA 


Alfanumérico 


Alfabético 


Alfabética 


Numérica 


Elemental 


Alfanumérico 
de editing 


Número editing 


DISPLAY 


Numérico 


¡al Move permitida 


INSTRUCCION MOVE 


ap NA E 


Alfabético 


. 


[Ed] Move no permitida 


* Sólo números enteros 


Número 
editing 
Alfanumérico 
de editing 
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ción; si estas últimas no se respetan, el Compila- 
dor las presenta en cualquier caso como erro- 
res. Recurrir a esta sencilla costumbre puede 
ahorrar inútiles pérdidas de tiempo dedicadas a 
la búsqueda de errores que son difícilmente 
diagnosticables. 

El siguiente ejemplo ¡lustra el caso en que una 
descripción errónea de un dato numérico com- 
porta el resultado absurdo — 1 +1 =2, 


01 CONTADOR 


PIC 9. 


PROCEDURE DIVISION. 
CUENTA. 
MOVE — 1 TO CONTADOR. 
ADD 1 TO CONTADOR. 


Como CONTADOR se ha descrito sin signo (sin 
el símbolo S), la transferencia de — 1 en el CON- 
TADOR comporta la pérdida del signo algeorai- 
co, el contenido de CONTADOR después de la 
MOVE es 1 y no— 1. De esto resulta que el valor 
conseguido sumando 1 es 2 y no 0. 

En la tabla de la pág. 1039 se han indicado sin- 
téticamente todas las posibles combinaciones 
de la MOVE alfanuméricas y numéricas. En la 
tabla se ha utilizado el símbolo A para indicar 
una MOVE alfanumérica, N para una MOVE nu- 
mérica y P para una MOVE por prospecto. 


La instrucción Inspect 


En el curso de un programa se puede tener la 
necesidad de entrar en el contenido de un cam- 
po, por ejemplo, para analizar el número de ca- 
racteres que no sean blank que contiene, o para 
verificar si en una posición cualquiera está pre- 
sente una determinada combinación de carac- 
teres. Exigencias de este tipo no pueden satis- 
facerse utilizando las instrucciones vistas hasta 
ahora; debe utilizarse una instrucción específi- 
ca, la INSPECT, 

En su formato más general, la instrucción INS- 
PECT puede contar y sustituir las repeticiones 
de un grupo de uno o más caracteres presentes 
en un determinado campo. 

Sin embargo, las dos funciones (contado y sus- 
titución) pueden obtenerse separadamente utili- 
zando dos subformatos. 
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La función de contado. Para efectuar la tun- 
ción de contado, la instrucción tiene necesidad 
de saber 


1 / qué campo numérico utilizar como contador 
(contador) 

2 / el nombre del campo que contiene la cade- 
na de caracteres a analizar (cadena) 

3 / qué debe contar (combinación). 


El formato de la instrucción se indica en la tabla 
de la página siguiente, en la que se utiliza gene- 
ralmente la palabra «combinación» para com- 
prender la combinación de caracteres que 
debe buscarse en el ámbito de la cadena que 
se está analizando. 

En realidad, para poder trabajar efectivamente, 
la instrucción debe saber también en qué mo- 
dalidad se realiza la búsqueda. 


La cláusula ALL. Considérese por ejemplo el 
caso en que se quiere conocer el número de 
caracteres A presentes en el campo 

01 COLOR PIC X(20) VALUE "AMARILLO. 
El contado puede realizarse utilizando como 
contador el campo 


01 CONT PIC SA5) COMP VALUE O. 


Debe tenerse en cuenta que durante la opera- 
ción de contado, la instrucción INSPECT incre- 
menta en 1 el valor del contador para cada 
combinación válida encontrada. Por tanto es 
necesario inicializar el contador a cero, a menos 
que no se desee un contado total al frente de 
más cadenas analizadas. 

En el caso examinado, la instrucción INSPECT 
tendrá el siguiente formato: 


INSPECT COLOR TALLYING CONT 
FOR ALL 'A?, 


En este caso, la «combinación» necesaria es 
ALL 'A', o bien «todas las A presentes en la ca- 
dena». Después de la ejecución, el resultado 
será 3, memorizado en el campo CONT, 
Obsérvese que se habria podido obtener el 
mismo resultado con las instrucciones 


MOVE A' TO FLAG. 
INSPECT COLOR TALLYING CONT 
FOR ALL FLAG. 


donde FLAG es el campo de la WORKING- 
STORAGE SECTION 


01 FLAG PIC X, 

La INSPECT puede utilizarse para buscar simul- 
táneamente en el mismo campo más combina- 
ciones de caracteres. 

Considerando el campo COLOR anteriormente 
definido, supongamos que se desea contar si- 
multáneamente cuantos grupos AMA, R, ILLO 
hay en el campo COLOR. Entonces puede pro- 
cederse así: 


01 COLOR PIC X(20) VALUE 
"AMARILLO", 
01 CUEN-AMA PIC 9(2) COMP VALUE 0, 
01 CUEN-R PIC 9(2) COMP VALUE O 
01 CUEN-ILLO PIC 9(2) COMP VALUE O 
PROCEDURE DIVISION. 
CUENTA. 
INSPECT COLOR 
TALLYING 
CUEN-AMA FOR ALL AMA!, 
CUEN-R—— FORALL ER; 


CUEN-ILLO FOR ALL “ILLO', 


Los valores de los contadores después de la 
operación serán 


CUEN-AMA 
CUEN-R 


1 
1 
CUEN-ILLO = 1 


La cláusula LEADING. Utilizando la cláusula 
LEADING, la instruccón INSPECT permite verifi- 
car si una cierta combinación de caracteres es- 
tá en las primeras posiciones del carrpo anali- 
zado. O sea, si se quiere saber si el contenido 
del campo COLOR empieza con una combina- 
ción de caracteres iguales a AM, se escribirá 


INSPECT COLOR 
TALLYING CONTADOR 
FOR LEADING 'AM". - 


Como en el caso en examen la palabra AMARI- 
LLO empieza con el grupo de caracteres 'AM', 


la instrucción incrementará en uno el campo 
CONTADOR. En cambio, si se hubiese escrito 


INSPECT COLOR 
TALLYING CONTADOR 
FOR LEADING 'MAR'. 


el contenido de CONTADOR habría quedado 
sin variación, puesto que el grupo MAR, tam- 
bién presente en la palabra AMARILLO, no 
constituye su parte inicial. 


La cláusula CHARACTERS. Esta cláusula per- 
mite conocer el número de caracteres que 
constituyen un determinado campo; el valor pro- 
porcionado por la instrucción comprende tam- 
bién los eventuales blanks presentes. Es decir, 
la instrucción 


INSPECT COLOR 
TALLYING CONTADOR 
FOR CHARACTERS. 


restituye en contador el valor 20, o sea el núme- 
ro de caracteres declarados en la PICTURE del 
campo COLOR, y no 8, que son los caracteres 
diferentes de blank que constituyen la palabra 
AMARILLO, 


La cláusula BEFORE. En todas las cláusulas 
del INSPECT vistas hasta ahora, el campo a 
analizar siempre se explora a partir del primer 
carácter de la izquierda y hacia la derecha. 
Esta limitación puede eliminarse utilizando dos 
cláusulas que permiten efectuar todas las bús- 
quedas descritas antes partiendo de una posi- 
ción cualquiera de la cadena examinada, 

El programador no fija de manera rígda este 
punto de partida, sino que está ligado al conte- 
nido del campo, 

Es decir, es posible utilizar como punto de parti- 
da la posición de la cadena en que se ha verifi- 
cado la existencia de una determinada combi- 
nación de caracteres. 

Seguramente el lector ha tenido la sensación de 
una escasa utilidad de la cláusula CHARAC- 
TERS anteriormente descrita. Sin embargo, si 
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EJEMPLO DE USO DE LA CLAUSULA BEFORE 


+ 
01 ARTICULO. 


05 SERIE-NUMERO PIC X(10). 
05 DESCRIPCION PIC X(20). 
0% commons.» 
0% 1.1... “o 

01 K-CAR-SERIE 


PIC 59 (2) 
88 TRES-CARACTERES VALUE 3. 
88 DOS-CARACTERES VALUE 2, 
88 UN-CARACTER VALUE 1, 
* 
k 
* 


PROCEDURE DIVISION. 
INICIO, 


VER SERIE. , 
INSPECT SERIE-NUMERO. 


TALLYING -K-CAR-=SERTE FOR CHARACTERS BEFORE 


IF TRES-CARACTERES 

PERFORM PROCESA-SERIE-=3, 
DOS-CARACTERES 

PERFORM PROCESA-SERIE-=2, 
UN-CARACTER 


PERFORM FROCESA-SERIE=1, 


LA 
1F 


esta cláusula se usa conjuntamente con la BE- 
FORE se dispone de aplicaciones más intere- 
santes. Efectivamente, considérese el caso en 
el que en un programa para la gestión de un 
almacén, el código de serie de cada artículo 
puede estar compuesto por un número cual- 
quiera de caracteres separados simplemente 
por el caracter / del número de artículo, como 


ABC / 1234 
ZX 1789 
U/045 


Supongamos que se quiera procesar de mane- 
ra diferente cada artículo según que la serie es- 
té constituida por 1, 2, 3,..., N caracteres. 

En este caso, la única manera posible para co- 
nocer exactamente a qué serie pertenece el ar- 
tículo es proceder como se indica en el listado 
de arriba. 

Volviendo al ejemplo ilustrado al hablar del pri- 
mer formato de la cláusula CHARACTERS, se 
habrían podido contar los caracteres que cons- 
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COMP VALUE 0, 


io 


tituyen la palabra AMARILLO utilizando indife- 
rentemente uno de los dos formatos siguientes: 


INSPECT COLOR 
TALLYING CONTADOR 
FOR CHARACTERS BEFORE ' ' 
INSPECT COLOR 
TALLYING CONTADOR 
FOR CHARACTERS BEFORE 
SPACES. 


En ambos casos, el campo CONTADOR habría 
contenido, después de la ejecución, el valor 8. 
Puede obsevarse como en el segundo formato 
se ha utilizado la constante figurativa SPACES 
en lugar del carácter *”. Esto es posible para 
cualquier formato de la INSPECT. Sin embargo, 
téngase presente que en este contexto SPACES 
equivale a un solo espacio en blanco. 


La cláusula AFTER. Mientras que en la cláusu- 
la BEFORE la INSPECT del campo empieza por 


el primer carácter a la izquierda y se para cuan- 
do se comprueba la existencia del carácter de- 
clarado en la BEFORE, con la cláusula AFTER 
se tiene el comportamiento opuesto. El campo 
se explora a partir de la izquierda para verificar 
la existencia del carácter declarado. Efectuada 
la verificación empieza el control de las otras 
condiciones indicadas en la instrucción. 
Considerando siempre el caso del campo 


01 COLOR PIC X(20) VALUE 'AMARILLO”. 
y si se quiere conocer el número de caracteres 
que siguen a la primera L presente en el campo, 
entonces puede utilizarse la instrucción 


INSPECT COLOR 
TALLYING CONTADOR 
FOR CHARACTERS AFTER 'L”. 


Recuérdese que las cláusulas BEFORE y AF- 
TER no pueden existir simultáneamente en la 
misma instrucción. 

Si por ejemplo se quisiese conocer el número 
de caracteres comprendidos entre el grupo 
AMA y el grupo LO, la instrucción 


INSPECT COLOR 
TALLYING CONTADOR 
FOR CHARACIERS 
BEFORE  'LO' 
AFTER 'AMA!' 


es errónea. 
Para satisfacer la misma exigencia es necesario 
recurrir a más instrucciones INSPECT oportuna- 


mente dispuestas y calcular el valor buscado 
como diferencia entre los valores obtenidos. 
En conclusión, el formato general de la instruc- 
ción INSPECT usada para contar caracteres se 
indica en la tabla de abajo. 


La función de sustitución. Para poder efectuar 
la sustitución de una parte de los caracteres 
presentes en un campo, la INSPECT tiene nece- 
sidad de conocer 


1 / qué campo debe analizar 
2 / qué debe sustituir 
3/con qué. 


El formato correspondiente a esta segunda fun- 
ción es el siguiente 


INSPECT campo REPLACING combinación-existente 
BY 
combinación-nueva 


Todo esto puede traducirse en un lenguaje co- 
rriente como sigue: 

«inspecciona (INSPECT) el contenido de cam- 
po sustituyendo (REPLACING) la combinación 
de caracteres combinación-existente con (BY) 
la nueva combinación combinación-nueva». 
De manera completamente análoga al formato 
correspondiente a la función de contado, la lo- 
cución «combinación-existente» también com- 
prende sintéticamente las cláusulas para la des- 
cripción de los caracteres a sustituir, como se 
ha descrito en el formato general indicado en la 
tabla de la página siguiente. 

Para mayor claridad examinaremos ahora algu- 


FORMATO GENERAL DE LA INSTRUCCION INSPECT 
CON FUNCIONES DE CONTADO 


INSPECT campo TALLYING contador FOR 


ALL 


nombre-de-dato 
constante 
LEADING constante-figurativa 


CHARACTERS 


BEFORE - nombre-de-dato-1 
INITIAL 
constante-1 


AFTER 
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FORMATO GENERAL DE LA INSTRUCCION INSPECT 
CON FUNCIONES DE SUSTITUCION 


ALL 


ALL nombre-de-campo 
LEADING 
INSPECT campo REPLACING FIRST constante 


CHARACTERS 


nombre-de-campo-1 | 


constante-1 


nos ejemplos de INSPECT considerando el es- 
quema del contenido del campo analizado des- 
pués de la ejecución de la instrucción. 
Considérese el campo CIFRAS-EN-LETRAS, 
que tiene la descripción 


01 CIFRAS-EN-LETRAS PIC X(30) 
VALUE 'MILSETECIENTOSVEINTITRES”. 


La configuración inicial de los caracteres en el 
interior del campo y las diversas configuracio- 
nes asumidas por el campo después de la eje- 
cución de algunas instrucciones INSPECT se in- 
dican en la figura de arriba de la pág. 1045. 


Formato general de la instrucción INSPECT. 
Como hemos anticipado al principio de la expli- 
cación de la INSPECT, usando esta instrucción 
se pueden efectuar simultáneamente tanto ope- 
raciones de contado como operaciones de sus- 
titución. Además sabemos que podemos efec- 
tuar más operaciones de tipo diferente sobre el 
mismo campo. 

Supóngase, por ejemplo, que se quiere efectuar 
en el campo nicial escrito en la figura de arriba 
de la página siguiente: 


1 / el contado de todos los caracteres diferentes 


de blank contenidos en el campo CIFRAS-, 


EN-LETRAS, utilizando K-CARACTERES co- 
mo contador 

2/el contado de todos los caracteres 'T' utili- 
zando K-T como contador 
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BEFORE nombre-de-campo-2 
INITIAL 
AFTER 


constante-2 


3/la sustitución del primer grupo 'CIENTOS' 
por la cadena WWWWWWW' 

4 / la sustitución de todas las letras 'T' que si- 
guen al grupo 'SETE' por 'N., 


La instrucción INSPECT tendrá entonces la for- 
ma que se indica a continuación: 


INSPECT CIFRAS-EN-LETRAS 
TALLYING K-CARACTERES 
FOR CHARACTERS 
BEFORE” ' 
K-T 
FOR ALL 'T 
REPLACING FIRST 'CIENTOS' 
BY WWWWWWW' 
ALL 'T BY 'N' 
AFTER 'SETE”. 
Después de la ejecución de la instrucción se 
tendrá 


K-CARACTERES = 24 
K-T = 7 


mientras que la configuración del campo será 


La instrucción INSPECT, cuyo formato completo 

_se indica en la tabla de abajo de la página si- 
guiente, es aplicable también a campos numéri- 
cos, aunque con USAGE DISPLAY, implícita o 
explícita. 


EFECTOS DE ALGUNAS INSTRUCCIONES INSPECT 


CONFIGURACION INICIAL DEL CAMPO CIFRAS-EN-LETRAS 


M¡1¡L,S¡E,T,¡E¡C¡1¡E¡N,T,0,S,V,E 1,N,T,!|T ¡R|E,S 


INSPECT CIFRAS-EN-LETRAS REPLACING CHARACTERS BY 'x. 


INSPECT CIFRAS-EN-LETRAS REPLACING LEADING 'MIL' BY '—-——. 


[8 ¡E[T ¡E ,C,1 ¡E ¡N¡T,0,S VE, 1¡N¡T¡1 T ¡R¡E/S 


INSPECT CIFRAS-EN-LETRAS REPLACING ALL '  ' BY "3, 


MEE TEO EN TOS, EAN TO TARAElA IA 


INSPECT CIFRAS-EN-LETRAS REPLACING FIRST 'E' BY 'A!. 


lA[T¡E,C¡1/E¡N¡T¡0/S¡ VE  1,N¡T/1/T ¡R¡E¡S 


INSPECT CIFRAS-EN-LETRAS REPLACING ALL 'T' BY 'S' 
ALL 'S' BY '8' 
BEFORE 'VEINTE!' 


m teje ¡e jsfejejrfe¡n¡Sjofe|[V¡E¡!¡N/T¡!¡T¡R¡E¡S 


FORMATO GENERAL DE LA INSTRUCCION INSPECT 


ALL nombre-de-dato-1 
INSPECT campo TALLYING contador FOR LEADING constante-1 
FIRST 


BEFORE nombre-de-dato-2 
INITIAL 
AFTER constante-2 
ALL nombre-de-dato-3 
LEADING 


REPLACING TOM 


constante-3 


CHARACTERS 
nombre-de-dato-4 
constante-4 | 


BEFORE nombre-de-dato-5 
INITIAL 
AFTER constante-5 
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La instrucción STRING 


Para completar el examen de las instrucciones 
orientadas a la manipulación de los datos, se 
analizarán ahora dos importantes instrucciones: 
la STRING y la UNSTRING, que en cierto senti- 
do reúnen las posibilidades de la MOVE y de la 
INSPECT. Sin embargo, debe observarse que 
la MOVE puede transferir datos de un campo de 
partida a uno de llegada siempre que ambos 
estén descritos en la DATA DIVISION. 

La instrucción MOVE o no entra del todo en el 
contenido del campo (MOVE alfanumérica) o 
bien cuando lo hace (MOVE numérica) sólo es 
para respetar la tipología del campo de llegada. 
Es decir, para la MOVE, el valor del dato transfe- 
rido es completamente transparente y, en ge- 
neral, sólo es posible desplazar una parte del 
dato, a menos que el campo esté oportunamen- 
te subdefinido. 

Por ejemplo, si en un determinado instante el 
campo CADENA 


01 CADENA. 
05 SUBCADENA 1 PIC X(3). 
05 SUBCADENA-2 PIC X(5). 
05 SUBCADENA-3. 
10 SUBCADENA-31 PIC X. 
10 SUBCADENA-32 PIC XX. 
10 SUBCADENA-33 — PIC X(6). 


contuviese el valor 'EJEMPLO DE MOVE, el 
contenido de los diferentes subcampos sería 


SUBCADENA-1 ='EJE' 
SUBCADENA-2 ='MPLO ” 
SUBCADENA-31 ='D' 


SUBCADENA-32 = 'E 
SUBCADENA-33 = 'MOVE ' 


Entonces no sería posible desplazar por ejem- 
plo la preposición 'DE', puesto que los caracte- 
res componentes pertenecen a dos subcampos 
diferentes. 

Contrariamente al comportamiento de la instruc- 
ción MOVE, la instrucción INSPECT prescinde 
de eventuales subdescripciones del campo 
analizado, puede inspeccionar el contenido y, 
eventualmente, alterarlo. 

El único modo para analizar el contenido de un 
campo y efectuar el desplazamiento de algunas 
de sus partes al producirse oportunas condicio- 
nes, es el de utilizar las instrucciones STRING 
y UNSTRING. La instrucción STRING permite 
transferir el contenido completo o parcial de uno 
o más campos en un único campo de llegada, 
disponiéndolos uno a continuación de otro se- 
gún el orden declarado por el programador (ver 
el esquema indicado abajo). Supóngase que se 
tenga que controlar si una fecha tecleada en la 
forma DD/MM/AA (día/mes/año) sea antece- 
dente o no a la fecha de proceso. 

Mediante la instrucción ACCEPT es posible to- 
mar del calendario del procesador la fecha del 
día. Esta la proporciona el campo declarado en 
la forma AAMMDD (año/mes/día). Por otra par- 
te, esta forma es la más idónea para el control 
de secuencias de las fechas: que el 13 de di- 
ciembre de 1983 siga al 11 de noviembre de 
1983 es fácilmente verificable porque 831213 
(representación del 13 de diciembre de 1983) 
es mayor que 831111 (representación de 11 de 
noviembre de 1983). Por tanto, volviendo a con- 
siderar el ejemplo, es evidente que la fecha indi- 
cada en la forma DD/MM/AA debe convertirse 
oportunamente para permitir su control. 

El problerna puede resolverse con el programa 
indicado en el listado de la página siguiente. 


ACCION DE LA INSTRUCCION STRING 


[cmo] [servo ] 


Em coa a 


(campo 3 


Campo de partida 


¡ Lar qe ¡ 


STRING 


y 


pre 


y 


Campo de llegada 
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CONVERSION DE UNA FECHA 


01 FECHA-CONSOLA. 


03 TTA-CONS PIL 9D. 
05 FILLER PIC *X, 
03 MES-CONS PIC 9(2). 
05 FILLER PIC X, 
05 AÑO-CONS PIC 92, 
03% FILLER PIC X. 

* 

* 

01 FECHA-PROACESO PIC 916), 


01 FECHA-PROC 


RETEFINES FECHA-FROCESO, 


FECHA-CONVERTITDA , 


03 AÑO-PROC PIC 9(2). 
059 MES-PROC PIC PDA 
059 DTA-PROC PICO, 
« 
» 
01 FECHA CONVERTIDA, 
03 AÑO-CONV PIC 9D, 
05 MES-CONV PIO 9D. 
03 DIA-GUNY PTS Piti 
x 
* 
PROCEDURE DIVISIÓN, 
ACEPTA FECHAS, 
DISPLAY "xx TECLEAR FECHA (II/MM/AR) ' 
UFON CONSOLE 
ACCEFT FECHA- CONSOLA FROM CONSOLE. 
STRING AÑO-CONS 
MES-=CONS 
DTA-CONS 
TELIMITEN BY SIZE 
INTO 
ACCEPT FECHA-PROCESO FROM FECHAS. 


IF DATA CONVERTITIA 15 GREATER THAN FECHA-FPROCESO 


PERFORM 


La instrucción 


STRING AÑO-CONS 
MES-CONS 
DIA-CONS 
DELIMITED BY SIZE 

INTO FECHA-CONVERTIDA 


activa las operaciones esquematizadas en el 
gráfico de la pág. 1048, donde se supone que 
en la consola se ha tecleado la fecha 15/12/83. 
La instrucción, en definitiva, transfiere (STRING) 
en el campo receptor (INTO FECHA-CONVER- 
TIDA) y en el orden indicado todo el contenido 
(DELIMITED BY SIZE) de los campos ANO- 
CONS, MES-CONS, DIA-CONS. 

La cláusula DELIMITED BY SIZE indica que la 
transferencia contempla las máximas dimensio- 


nes del campo a transferir, tal como se han de- 
clarado en DATA DIVISION. Sin embargo, los 
tres campos transferidos se habían declarado 
como de dos caracteres cada uno: PIC 9(2). 
Es evidente que, en este caso, para obtener el 
mismo resultado habrían podido usarse tres 
MOVE en lugar de la STRING. 

La flexibilidad de empleo de la STRING puede 
aprovecharse al máximo conociendo todas las 
cláusulas que prevé la instrucción. 

Los siguientes ejemplos dan una idea del poten- 
cial de este verbo, que actúa sobre campos al- 
fanuméricos y puede crear en un campo de lle- 
gada una composición de cadena de caracte- 
res tomados por más campos de partda. 
Los caracteres a tomar se identifican en base a 
uno o más caracteres declarados como delimi- 
tadores. Por ejemplo, considérese el campo 
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CONVERSION DEL FORMATO FECHA CON LA INSTRUCCION STRING 


Campo 
DIA-CONS 


FECHA-CONVERTIDA 


Campo L 
MES-CONS  ANO-CONS 


Campo 


=== Campos DIA-CONS, MES-CONS, AÑO-CONS después 
de la ejecución de la instrucción ACCEPT 


Operaciones efectuadas por la STRING. Los números 


1, 2, 3 indican la secuencia seguida para efectuar 


la transferencia 


Campo FECHA-CONVERTIDA después de la ejecución 


de la STRING 


01 PARTIDA PIC X(4). 
cuyo contenido, en un cierto momento, valga 
ABCD 


Se desea componer en el campo 
01 LLEGADA PIC X(40), 
una cadena de caracteres que contiene: 


1 / la constante alfanumérica: EJEMPLO DE CA- 
DENA : 

2 / un blank 

3 / el carácter: (dos puntos) 

4 /un blank 

5 / todas las letras que preceden a la letra C en 
el contenido del campo PARTIDA. 


La instrucción que permite obtener lo especifi- 
cado es la siguiente: 


STRING 'EJEMPLO DE STRING' DELIMITED 
ma BY SIZE 
DELIMITED 
1 BY SIZE 
] DELIMITED 
BY SIZE 
DELIMITED 
BY SIZE 
DELIMITED 
BY Cc 


SPACE 


PARTIDA 


INTO 
LLEGADA. 
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En este caso, la composición del campo de lle- 
gada empieza por el primer carácter de la iz- 
quierda, pero es posible establecer un punto di- 
ferente de partida utilizando un puntero. Por 
ejemplo, la cadena presentada anteriormente 
puede componerse a partir de la séptima posi- 
ción en el campo LLEGADA, utilizando las si- 
guientes instrucciones. 


MOVE 7 TO POSICION. 
STRING 'EJEMPLO DI STRING' 


SPACE 
PARTIDA 


DELIMITED BY SIZE 
DELIMITED BY 'C' 
INTO 

LLEGADA WITH POINTER POSICION 
ON OVERFLOW 

DISPLAY 'CAMPO LLEGADA 
INSUFICIENTE! 
UPON CONSOLE. 


En el ejemplo se ha insertado también la cláusu- 
la ON OVERFLOW, que permite controlar la 
eventualidad de que el campo de llegada no 
pueda contener todos los caracteres que se 
han declarado. 

El formato general de la instrucción STRING se 
ha indicado en la parte de arriba de la página 
siguiente. 


FORMATO GENERAL DE LA INSTRUCCION STRING 


nombre-de-dato-1 nombre-de-dato-2 
constante-1 constante-2 


nombre-de-dato-3 | 


| 


STRING 


SIZE 


nombre-de-dato-4 nombre-de-dato-5 
constante-4 constante-5 
nombre-de-dato-6 | 


DELIMITED BY constante-6 
SIZE 


DELIMITED BY ES 


INTO nombre-de-dato-7 
[WITH POINTER nombre-de-dato-8] 
[ON OVERFLOW frase-imperativa] 


ACCION DE LA INSTRUCCION UNSTRING 


Campo de partida 


Campo de llegada 1 Campo de llegada 2 


La instrucción UNSTRING 


Como puede intuirse, el verbo UNSTRING tra- 
baja de manera opuesta a la de STRING. Permi- 
te tomar datos de un campo alfanumérico único 
y transferirlos a uno o más campos de llegada, 
según el esquema de la figura de arriba. 

La identificación de los caracteres a tomar se 
efectúa con la misma lógica usada por la 
STRING, o bien especificando el carácter que 
debe entenderse como delimitador (DELIMITED 
BY...). Además, la UNSTRING está dotada de 
cláusulas de las cuales no existe corresponden- 
cia en la STRING, como se ve en el formato ge- 
neral de la tabla de arriba de la pág. 1050. 


Campo de llegada 3 


La cláusula ALL permite hacer interpretar al 
Compilador un grupo de caracteres iguales 
como un único delimitador. De este modo, por 
ejemplo, la 

DELIMITED BY ALL 'L' 
hace que, al analizar la cadena 

BELLEZA 


el grupo 'LL' se entienda como un único delimi- 
tador. Si no se especificase la cláusula ALL sólo 
se trataría como delimitador la primera L, mien- 
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FORMATO GENERAL DE LA INSTRUCCION UNSTRING 
UNSTRING nombre-de-dato-1 


Meta 


DELIMITED BY ALL | 


constante-1 


nombre-de-dato-3 
OR [ALL] 
constante-2 


INTO nombre-de-dato-4 


[DELIMITER IN nombre-de-dato-5] 
[COUNT IN nombre-de-dato-6] 


nombre-de-dato-7 


[DELIMITER IN nombre-de-dato-8] 
[COUNT IN nombre-de-dato-9] 


[WITH POINTER nombre-de-dato-10] 
[TALLYING IN nombre-de-dato-11] 
[ON OVERFLOW frase-imperativa]. 


EJEMPLO DE USO DE LA INSTRUCCION UNSTRING 


MOVE 'GALLO JAZZ MELAZA' TO PARTIDA. 
UNSTRING PARTIDA 
DELIMITED BY Z, Definición de 
ALL los delimitadores 
INTO PARTE-1 
DELIMITER PRIMER-DELIM Primera transferencia 
COUNT CARACTERES-PARTE-1 


PARTE-2 
DELIMITER SEGUNDO-DELIM Segunda transferencia 
COUNT CARACTERES-PARTE-2 


PARTE-3 
DELIMITER TERCER-DELIM Tercera lransferencia 
COUNT CARACTERES-PARTE-3 


PARTE-4 
DELIMITER CUJARTO-DELIM Cuarta transferencia 
COUNT CARACTERES PARTE-4 


TALLYING CADENAS-TRANSFERIDAS Contador de las operaciones 


ON OVERFLOW de transferencia efectuadas 
DISPLAY 'OVERFLOW DE UNSTRING' 


UPON CONSOLE. 
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Iras que la segunda se entendería como perte- 
neciente a la siguiente cadena. 

El significado de las diversas cláusulas de la 
instrucción se ilustra abajo, donde se ha repre- 
sentado gráficamente la serie de acciones reali- 
zadas por la instrucción UNSTRING indicada en 
la tabla de abajo de la página anterior. 


Verbos de control 


El tratamiento desarrollado hasta ahora ha pro- 
porcionado al lector el conocimiento de todas 
las operaciones que pueden efectuarse sobre 
datos, desde las operaciones de INPUT/OUT- 
PUT para el tratamiento de files secuenciales 


Campo 
PARTIDA 


Campo 
PARTE-1 


Campo 
PARTE-2 


Campo 
PARTE-3 


Campo 
PARTE-4 


Campo de partida 
[E] Caracteres transferidos 


Contadores de caracteres transferidos 


ESQUEMA DE LAS TRANSFERENCIAS HECHAS POR 
UNA INSTRUCCION UNSTRING 


OM Fnmeroeum 
OM Sltiñoo-ozum 

la Ml OM tont2nocun 
e CUARTO-DELIM 


Contador de las cadenas transferidas a s 
Campo CADENAS-TRANSFERIDAS LI] | Ja] (A final ejecución) 


Campos de memorización 
de los delimitadores 
hallados 


Contadores de los caracteres 
transferidos 


Di dde ---> MEN 
O > 118) CARACTERES-PARTE-1 


.o-) Campo 
[Te] CARACTERES-PARTE-3 


2. ---(4)---3 Campo 
O [Els] CARACTERES-PARTE-4 


[E Delimitadores hallados 


Contador de las operaciones 
de transferencia efectuadas 


1 -*» 4 Operaciones de transferencia 
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tanto en lectura como en escritura, hasta las 
orientadas a la manipulación de los datos en 
memoria. Las instrucciones analizadas hasta 
ahora constituyen en cierto sentido el armazón 
del programa Cobol; sin embargo, todavía no 
podemos organizar un programa, 
Efectivamente, un programa es una estructura 
lógica constituida por una secuencia de decisio- 
nes y acciones secuenciales, emprendidas 
frente a situaciones razonablemente previsibles 
en la fase de análisis. 

El programador debe poder alterar en cualquier 
momento el flujo secuencial de las instrucciones 
al producirse determinadas condiciones que 
necesitan tratamientos diversificados de los da- 
tos. A tal fin, el Cobol dispone de un conjunto de 
instrucciones que sirven para el control de las 
secuencias de las operaciones realizadas. Fs- 
tas instrucciones ya se han usado en algunos 
ejemplos presentados, contando con la intuición 
del lector para su interpretación, facilitada ade- 
más por la forma sintáctica común al lenguaje 
Basic ya examinado. 

Este capítulo se dedicará al examen de las ins- 
trucciones de control en su forma más general, 


La proposición IF 

Mediante esta proposición es posible evaluar la 
verificación de una determinada circunstancia 
y, en función del resultado del análisis, empren- 
der dos acciones de tipo diferente. 
Conceptualmente, la proposición IF equivale a 
la siguiente frase: «si (IF) se verifica una deter- 
minada condición, entonces (THEN) realiza la 
ACCION-A, de otro modo (ELSE) realiza la 


ACCION-B». Utilizando el verbo -PERFORM 
cuya función, ya indicada, se comentará más 
adelante, se tendrá: 


IF. condición 
THEN 
PERFORM ACCION-A 
ELSE 
PERFORM ACCION-B. 


donde ACCION-A y ACCION-B son dos nom- 
bres de párrafos o de secciones que contienen 
secuencias diferentes de instrucciones. 
Obsérvese que el adverbio THEN no forma par- 
te del ANS Cobol y que sólo se utilizará en los 
primeros ejemplos para hacer más evidente la 
construcción lógica de la frase entera. 
Después de los primeros ejemplos ya no se ha- 
rá uso de este adverbio, acudiendo así a las es- 
pecificaciones del Cobol estándar. 

La representación gráfica de la frase condicio- 
nal se indica en la figura de abajo, 

Además se quiere llamar la atención del lector 
sobre la importancia que reviste el punto (.) en el 
ámbito de una frase condicional: omitir un punto 
o insertar uno erróneamente puede inducir al 
Compilador a una interpretación de la frase dife- 
rente de la entendida por el programador. En 
este caso, la salida del proceso puede ser im- 
previsible (terminación por error, bucles infinitos, 
desplazamiento más allá del espacio de memo- 
ria asignado, etc.), según el contexto en que es- 
tá inserta la frase. 

El formato general de la instrucción IF se ha indi- 
cado en la tabla de la página siguiente, pero 
antes de analizarla, es importante subrayar el 


DIAGRAMA DE FLUJO DE UNA INSTRUCCION IF 


Verdadera 


hecho de que, análogamente a lo que sucede 
en el lenguaje humano, las frases condicionales 
constituyen puntos de referencia para la com- 
prensión del flujo de un programa. 

Al leer un programa escrito por uno mismo o por 
otra persona, el primer esfuerzo a realizar es el 
de identificar los puntos de decisión, los puntos 
de derivación y las correspondientes condicio- 
nes analizadas. 

En una primera aproximación de este tipo tiene 
muy poca importancia entrar en el detalle de ca- 
da instrucción sencilla si antes no se ha identifi- 
cado el contexto lógico en que trabaja la instruc- 
ción. No es exagerado afirmar que leer un pro- 
grama equivale a leer los IF que contiene. Se 
deduce que los puntos de decisión del progra- 
ma deben detallarse de manera que resalten 
desde la primera ojeada al listado. 

El Cobol permite escribir la mayor parte de las 
instrucciones, siempre respetando las reglas 
sintácticas que las controlan, de manera que la 
disposición de los operandos ya dé una sensa- 
ción de su función lógica. El formato de la ins- 
trucción IF resulta de difícil interpretación si se 
emplea como se ha descrito en la página ante- 
rior. Por tanto, se aconseja vivamente utilizarlo 
siempre con las cláusulas detalladas de la si- 
guiente manera: 


IF condición 


[THEN] NEXT. SENTENCE 
E frase-imperativa-1 


| ELSE E SENTENCE 1 
A frase-imperativa-2 


De esta manera se tiene una doble ventaja: 


m resaltar la IF en el contexto del programa 
m aislar visualmente las instrucciones que 
constituyen las dos alternativas del proceso. 


Obsérvese a propósito el siguiente ejemplo, en 
el que las instrucciones utilizadas en la IF son 
sintácticamente correctas, pero cuya disposi- 
ción impide extraer rápidamente el sentido de 
las operaciones efectuadas antes de las dos 
vías de la frase condicional. 


IF TIPO-FICHA = 'A' MOVE FICHA 
TO DISPONIBLE-FICHA 

COMPUTE SALDO = HABER-DEBE 
ADD SALDO TO SALDO-TOTAL 
ADD 1 TO FICHAS-LEIDAS 

GO TO LEE-FICHAS ELSE 

ADD 1 TO FICHAS-LEIDAS 

ADD 1 TO FICHAS-DESCARTADAS 
GO TO LEE-FICHAS. 


A continuación se indica el mismo ejemplo deta- 
llado en la forma aconsejada: 


IF TIPO-FICHA = 'A' 
MOVE FICHA TO DISPONIBLE-FICHA 
COMPUTE SALDO = HABER-DEBE 
ADD SALDO — TO SALDO-TOTAL 
ADD 1 TO FICHAS-LEIDAS 
GO TO LEE-FICHAS 


ELSE 
ADD 1 TO FICHAS-LEIDAS 
FICHAS-DESCARTADAS 


GO TO LEE-FICHAS. 


Del análisis de este detalle puede obtenerse fá- 
cilmente el diagrama de flujo y, por tanto, la 
comprensión de las funciones realizadas. 


Lógica de ejecución de la instrucción IF. An- 
tes de entrar en el detalle de los tipos de análisis 
que la proposición IF puede efectuar, es intere- 
sante conocer la dinámica según la cual se de- 
sarrolla el análisis en sí. Si la condición especifi- 
cada inmediatamente después de la proposi- 
ción IF resulta verdadera, se realiza la frase in- 
mediatamente siguiente a dicha condicion, has- 
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ta encontrar la palabra ELSE o el primer punto. 
Después de la ejecución de la frase, el control 
pasa a la primera frase que sigue al primer pun- 
to. En cambio, si la condición resulta falsa, se 
realiza la frase inmediatamente siguiente a la 
proposición ELSE (si está presente) y el control 
pasa después a la primera instrucción que si- 
gue al punto de cierre de la frase condicional, 
Es oportuno aclarar la dinámica ilustrada con al- 
gunos ejemplos. 

Se quiere calcular las sumas de los números 
enteros, pares e impares, perforados uno en 
cada ficha de un file de fichas; el proceso termi- 
na, y los resultados obtenidos deben presentar- 
se en consola, apenas se encuentre en el file 
una ficha con el número 55555. 

Es evidente que, para poder efectuar la suma 
de los números pares por una parte y la de los 
números impares por otra, debe reconocerse la 
naturaleza del número leído en la ficha. 


Por otra parte, antes de procesar el número leí- 
do debe verificarse que el número no sea igual 
a 55555. 
En una primera aproximación, el programa ten- 
drá el diagrama de flujo ilustrado abajo. 
Para evaluar si un número es par o impar puede 
dividirse por dos: si el resto de la división es 
igual a O, el número es par, de otra forma es 
impar. Por tanto, el programa descrito puede 
detallarse como se ve en el listado de la página 
siguiente. 
Leyéndolo puede observarse que si la condi- 
ción NUMERO = 55555 resulta verdadera, se 
envía a ejecución la instrucción GO TO FIN- 
PROC, mientras que todas las veces que resulta 
falsa, el control pasa a la siguiente instrucción 
en el punto: 
DIVIDE NUMERO BY 2 
GIVING COCIENTE 
REMAINDER RESTO. 


EJEMPLO DE FRASES CONDICIONALES 
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A final file 
A e e 


APLICACION DE LA INSTRUCCION IF 


IDENTIFICATION DIVISION. 
PROGRAM-11. PRUEBA-1F. 
ENVIRONMENT DIVISION, 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. ¿0.0 ....... 
OBJECT-COMPUTER. ..o.ooommproro 
INPUT-DUTPUT SECTION. 
FILE-CONTROL.. 


**x 


SELECT FICHAS ASSIGN TO CARD-REAUER FICHAS. 


DATA DIVISION. 
FILE SECTION. 
FO FICHAS 


LABEL RECORD OMITTELN. 


01 FICHA PIC X(80). 


* 
e 


WORK ING-<STORAGE SECTION, 
01 FICHA-4S. 


05 NUMERO PIC 9(5) COMP. 

05 FILLER PIC XD. 

COCIENTE PIC 9(5)U9 COMF, 

RESTO PIC 9(2) COMP, 
SUMA-PARES PIC 9(10) COMP VALUE 0. 
SUMA-TIHPARES PIC 9 (10) COMP VALUE O, 


PROCETURE DIVISION. 
INICIO SECTION. 
ARRE-FILE. 


* 
* 
* 


OFEN INPUT FICHAS. 


LEE-FICHA. 


READ FICHAS INTO FICHA-YS 
AT END 
60 TO FIN-PROC. 
IF NUMERO = 539005 
60 TO FIN-FROC, 
DIVIDE NUMERO EY 2 
GIVING COCIENTE 
REMAINUER- RESTO. 
IF RESTO = 0 
ATI NUMERO TO SUMA-FARES 
EL.SE 
ADD NUMERO TO SUMA-IMFARES. 
GO TO LEE-FICHA. 


FIN-FROC., 
DISPLAY '*x%* SUMA NUMEROS PARES =" ' SUMA-FARES 
UFON CONSOLE, 
DISPLAY ' ” 
UFON CONSOLE. 
DISPLAY '**x SUMA NUMEROS TMPARES = ' SUMA-IMPARES 


UPON CONSOLE. 


CIERRA-FILE. 


CLOSE FICHAS. 


FIN. 


DISFLAY '*%** PROCESO TERMINADO vee! 
UPON CONSOLE. 
STOP RUN. 
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Después de la división del número por 2, el res- 
to es igual a O o no lo es. En el caso en que 
resulte verdadera la primera hipótesis, el núme- 
ro (par) se suma a SUMA-PARES, de otra forma 
(ELSE) se suma a SUMA-IMPARES. 

La frase condicional termina con el punto que se 
encuentra al final de la instrucción 


ADD NUMERO TO SUMA-IMPARES. 


Cualquiera que haya sido el camino seguido 
por el programa en la frase condicional, al final 
el control se cede siempre a la instrucción inme- 
diatamente siguiente a dicha frase condicional. 
Terminado el análisis sobre el valor del resto 
(RESTO) y realizada la correspondiente instruc- 
ción, el programa vuelve al párrafo LEE-FICHA. 
Este ciclo se realiza iterativamente hasta que se 
termina el file (AT END) o hasta que se lee una 
ficha con el número 55555. A propósito de la 
importancia que reviste el punto en la exacta 
definición de una frase cond cional, obsérvese 
que si, en el ejemplo, el segundo IF se hubiese 
escrito erróneamente de la manera 


IFRESTO = 0 
ADD NUMERO TO SUMA-PARES 
ELSE 
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ADD NUMERO TO SUMA-IMPARES 
GO TO LEE-FICHA. 


(o bien si se hubiese omitido el punto en la ins- 
trucción ADD NUMERO TO SUMA-IMPARES) el 
Compilador habría interpretado el flujo de las 
operaciones en la forma esquematizada en la 
figura de la página siguiente. 

El programa habría vuelto a leer las fichas sólo 
en el caso en que el número tratado anterior- 
mente hubiese sido impar; al encontrar el primer 
número par, después de la suma del número en 
SUMA-PARES, el control habría pasado al pá- 
rrafo FIN-PROC, con el consiguiente cierre del 
proceso. 


La opción NEXT SENTENCE. La opción NEXT 
SENTENCE permite transferir el control de las 
operaciones a la primera instrucción inmediata- 
mente siguiente al punto de cierre de la frase 
condicional. 

Para aclarar completamente el concepto se vol- 
verá a considerar el IF del ejemplo anterior que 
se encuentra en primer lugar: 


IF NUMERO = 55555 
GO TO FIN-PROC. 
DN ID oca 


INTERPRETACION ERRONEA DE UNA FRASE CONDICIONAL 


A A 


Se habría obtenido el mismo resultado con 


IF NUMERO NOT = 55555 
NEX SENTENCE 
ELSE 
GO TO FIN-PROC 
E A 


Cada vez que el contenido del campo NUME- 
RO es diferente de 55555, el control se cede a 
la instrucción que sigue al punto, o sea 


DIVIDE NUMERO BY 2 
GIVING COCIENTE 
REMAINDER RESTO. 


mientras que, en el caso contrario, se realiza la 
instrucción alternativa GO TO FIN-PROC. 

Debe observarse que a pesar de que las dos 
formas son completamente equivalentes a los fi- 
nes del resultado, la segunda es de lectura me- 


nos inmediata que la primera. Por tanto, es bue- 
no estructurar los IF de manera sencilla y lineal; 
esto agilizará tanto la escritura como, y sobre 
todo, la lectura y manutención del programa. 


Condiciones asociables a la instrucción IF. 
En e formato general de la instrucción |F no se 
ha especificado el tipo de condiciones que pue- 
den insertarse en las frases condicionales. 

Los tests condicionales que pueden actuar en 
una frase IF son varios, y cada uno de ellos en- 
cuentra ocasiones de empleo en muchas fases 
del proceso. Las diferentes posibilidades, que 
describiremos en este párrafo, pueden relacio- 
narse someramente así: 


m Análisis de relación: permite condicionar la 
ejecución de una sección del programa a la 
relación comparativa (mayor, igual, menor, 
etc.) existente entre dos datos. Este tipo de 
análisis asume significados particulares 
cuando se trata de realizar una comparación 
entre datos alfabéticos o alfanuméricos. 
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"m Análisis de signo: permite condicionar la eje- 
cución en función del signo algebraico de un 
dato. 

"m Análisis de condición: permite subordinar la 
ejecución a la verificación del contenido de 
un determinado campo. 

"m Análisis de clase: verifica la clase de perte- 
nencia de un dato (numérico/alfabético) y 
activa la fase de ejecución adecuada. 


Análisis de relación. En el análisis de relación 
se efectúa una comparación entre dos cantida- 
des (operandos) utilizando un operador relacio- 
nal especificado. 

El formato de la proposición IF para un análisis 
de relación se indica en la primera tabla de esta 
página. 

El operador califica el tipo de comparación que 
debe realizarse sobre los operandos especifica- 
dos, y debe pertenecer al conjunto indicado en 
la segunda tabla de esta página. Debe obser- 


varse que todos los operadores pueden escri- 
birse utilizando tanto el correspondiente símbo- 
lo como la propia forma de la lengua inglesa. 
Los operandos objeto de la comparación pue- 
den ser campos descritos en DATA DIVISION, 
constantes o expresiones aritméticas. Por tanto, 
es posible efectuar análisis comparativos entre 
operandos que pertenezcan a una cualquiera 
de las categorías especificadas: un campo pue- 
de compararse con otro campo, con una cons- 
tante o con una expresión aritmética. 

Una constante puede compararse con una 
expresión aritmética, pero no con otra cons- 
tante. 

Cuando uno de los dos operandos interesados 
en la comparación es una expresión aritmética, 
antes se calcula el valor de la expresión y, des- 
pués, este último se coloca en relación con el 
otro operanco. Para aclarar esto supóngase 
que debe leerse y controlarse un file de fichas 
cuyo record es 


FORMATO DE LA INSTRUCCION IF PARA UN ANALISIS DE RELACION 


nombre-de-dato-1 nombre-de-dato-2 
IE constante-1 operador constante-2 


expresión-1 
[THEN] 


(0en A 
frase-1 


frase-2 


| ELSE 


En SENTENCE | 


expresión-2 


OPERADORES RELACIONALES 


equivalente 
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IS EQUAL [TO] 
IS NOT EQUAL [TO] 
IS GREATER [THAN] 
IS LESS [THAN] 
IS NOT GREATER [THAN] 
IS NOT LESS [THAN] 


... igual... 
... Oliferente... 
.. Mayor... 
.. MENOF... 
... menor o igual... 
.. mayor o igual... 


Sistema IBM 370 utilizado para la gestión de archivos en cinta. 


01 FICHA-WS. 
05 TIPO-FICHA PIC X(3). 
05 ARTICULO. 
10 SERIE PIC X(3). 
10 NUMERO PIC 9(5). 
10 DESCRIPCION PIC X(30). 
05 EXISTENCIAS PIC 9(5). 
05 RESERVA-MINIMA PIC 9(5). 
05 VENDIDO PIC 95). 
05 MES- VENTAS PIC 9(2). 


Supongamos que cada ficha leída deba some- 
terse a los siguientes controles: 


1 / Verificar que la ficha tenga TIPO-FICHA igual 
a ALM; en caso contrario descartara incre- 
mentando un contador de fichas para pre- 
sentarlo al final del proceso 

2 / Verificar que las descripciones del artículo 
no están vacias; si están vacías debe des- 
cartarse la ficha, señalando al final del proce- 
so el total de fichas descartadas 

3 / Verificar que la cantidad real (existencias — 
vendido) no sea interior a la reserva mínima. 
En caso contrario, presentar este hecho con 
un oportuno mensaje 


4 / Procesar todos los artículos movidos en el 
mes tecleado en la consola. 


El diagrama de flujo del programa se indica en 
el gráfico de la página siguiente y el listado 
puede verse en la pág. 1061. 

En el ejempla se han usado algunos IF para el 
análisis de relación estre diferentes operandos: 


IF TIPO-FICHA NOT = 'ALM' 
compara un campo alfanumérico con una 
constante alfanumérica 

IF MES-VENTAS NOT = MES-PROC 
verifica la igualdad entre dos campos nu- 
méricos 

IF ARTICULO = SPACES 
relaciona y verifica la igualdad entre un 
campo alfanumérico y la constante figura- 
tiva SPACES; esto equivale a verificar si 
el contenido de campo son espacios 

IF EXISTENCIAS — VENDIDO<RESERVA-MI- 

NIMA 

compara el resultado de la expresión arit- 
mética EXISTENCIAS — VENDIDO con el 
contenido del campo numérico RESER- 
VA-MINIMA 
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Finsiel 


LECTURA Y PROCESO DE UN FILE FICHAS 


El análisis de relación puede realizarse tanto en- ) 


tre campos de igual clase (alfanuméricos/numé- 
ricos) como entre campos de clase diferente. 

Un conocimiento exacto de las reglas de com- 
paración es esencial a los fines del buen funcio- 
namiento de un programa. El programador que 
no tenga una visión exacta puede incurrir fácil- 
mente en errores que, considerando la amplia 
gama de comparaciones realizadas, no se evi- 
dencian en la compilación. La existencia de un 
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error de este tipo sólo puede evidenciarse con 
la inexactitud de los resultados o con termina- 
ciones anómalas del proceso a primera vista 
injustificadas. 

Considérese por ejemplo la frase condicional 


IF SW-ACEPTACION = '0' 
PERFORM PROCESA 

ELSE | 
PERFORM FIN-PROCESO. 


LECTURA Y PROCESO DE UN FILE FICHAS 


01 FICHA-4S. 


03 TIPO-FICHA PICXDW., 
05 ARTICULO. 
10 SERIE PIC X(3). 
10 NUMERO PIC X(S). 
10 DESCRIPCION PIC X(30), 
03 EXISTENCIAS PIC 95. 
03 RESERVA-MINIMA PICS 9(3), 
0% VENDO PIC 9D. 
03 MES-VENTAS PIC 9D. 
* 
01 MES-PROC PIC 9(2D, 
* 
01 CUENTALETAS PIC 9(3) COMP VALUE 0, 
01 CUENTA-ERRONEAS PIC 9(3) COMP VALUE O, 
01 CUENTA- DESCAXTANAS PIC 9(3) COMP VALUE 0, 


PROCENURE DIVISION. 
INICIO, 
MOVE 0 TO CUENTA-DESCARTADIAS 
CUENTA-ERRONEAS 
CUENTA-=LEITAS. 
DISPLAY "Nx TECLEAR MES A PROCESAR x**' 
UFON CONSOLE. 
ACCEFT MES-FROC FROM CONSOLE. 
ABRE-=FILE, 
OFEN INPUT FICHAS. 
PRIMERA LECTURA, 
READ FICHA INTO FICHA=US 
AT END 
DISPLAY "oe FILE FICHAS VACIO x**' 
UPON CONSOLE 
GO TO FIN=PROC. 
CONTROL. 
Ano 1 TO CUENTA-=LEIDAS. 
IF TIPO-FICHA NOT = *ALM' 
An 1 TO CUENTA-DIESCARTADAS 
GO TO LEE-FICHAS. 
IF MES-VENTAS NOT = MES-PROC 
GO TO LEE-FICHAS. 
IF ARTICULO = SPACES 
AnD a TO CUENTA-ERRONEAS 
GO TO LEE-FICHAS, 
IF EXISTENCIAS - VENDIDO LESS THAN RESERVA-MINIMA 
DISPLAY '*x ARTICULO 3 * 
DESCRIFCION 
oO SERTE 1 ' 
SERTE 
O NUMERO 1 * 
NUMERO 
1 BAJOSRESERVA 1%? 
UPON PRINTER. 
LEE-FICHAS. 
READ FICHAS INTO FICHA-=WS 
AT ENn 
DISPLAY ue FICHAS LEIDAS mo! 
CUENTA-LEIDAS 
UPON PRINTER 
DISPLAY Mero FICHAS DESCARTALIAS 
CUENTA-DESCARTADAS 
UPON PRINTER 
DISPLAY 'xxex FICHAS ERRONEAS € 
CUENTA-ERRONEAS 
UFON PRINTER 
GO TO FIN-PROC. 
G0 TO CONTROL, 


$ 
FIN-PROC, 
CLOSE FICHAS. 
STOF RUN, 
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donde SW-ACEPTACION está descrito en 
WORKING-STORAGE SECTION del modo 

01 SW-ACEPTACION PIC X(3). 
Si en un cierto momento el proceso SW- 
ACEPTACION contiene el valor no numérico 


el análisis de relación IF SW-ACEPTACION = '0' 
resulta falso, y el programa realiza la llamada al 
procedimiento FIN-PROCESO. 

En un primer análisis, esto parecería inexplica- 
ble, pero el motivo del comportamiento descrito 
es fácilmente justificable cuando se tiene en 
cuenta el mecanismo que regula la compara- 
ción. La proposición IF permite relacionar cam- 
pos no numéricos o campos numéricos y no nu- 
méricos, cualquiera que sea su longitud. De mo- 
mento consideraremos campos de igual longi- 
tud. En este caso, la comparación se realiza ca- 
rácter por carácter partiendo de la izquierda, y 
se interrumpe al terminarse los caracteres a 
analizar o cuando se encuentra que la condi- 
ción requerida no se ha satisfecho. 
Supóngase por ejemplo los campos CAMPO-1 
y CAMPO-2 descritos de la manera 


01 CAMPO-1 
01 CAMPO-2 


PIC X(3). 
PIC X(3). 


y supóngase que en un cierto instante éstos va- 
len respectivamente ' 


CAMPO-1= [A] B] 


CAMPO-2 = 


Queremos comprobar la siguiente condición de 
igualdad: 


IF CAMPO-1 = CAMPO-2 
DISPLAY 'LOS CAMPOS SON IGUA- 
LES' 
UPON CONSOLE 
ELSE 
DISPLAY 'LOS CAMPOS NO SON 
IGUALES' 
UPON CONSOLE 
STOP RUN. 


El mecanismo de comparación se esquematiza 
en el gráfico de la página siguiente. 
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Considérese ahora el caso en que se quiere ve- 
rificar si el contenido de CAMPO-1 es menor 
que el contenido de CAMPO-2 para emprender 
las acciones descritas en la siguiente frase: 


IF CAMPO-1 <CAMPO-2 
DISPLAY 'CAMPO-1 MENOR 
QUE CAMPO-2' 
UPON CONSOLE 
ELSE 
DISPLAY 'CAMPO-1 MAYOR O 
IGUAL A CAMPO-2" 
UPON CONSOLE 
STOP RUN, 


En este caso, el programa asegura ante todo 
que las longitudes de los dos campos sean 
iguales y después realiza la comparación (aná- 
logamente al ejemplo anterior) carácter por ca- 
rácter partiendo de la izquierda. 
El criterio con que se establece que un carácter 
tiene valor menor o mayor que otro está ligado a 
la secuencia ascendente de la representación 
de los caracteres en el ámbito del código utiliza- 
do por la máquina (ASCI!l o EBCDIC). 
En otros términos, considerando los dos valores 
ABZyAB, resulta ABZ<AB9 cuando el có- 
digo usado es el EBCDIC, y ABZ>AB9 cuando 
el código usado es el ASCII. 
Efectivamente, según el código EBCDIC, las re- 
presentaciones de las letras del alfabeto tienen 
todas valores inferiores a las de los números, 
mientras que en el código ASCII la situación es 
opuesta (los códigos de los números tienen va- 
lores menores que los de las letras). 
Las secuencias de caracteres EBCDIC y ASCII 
en orden creciente de valor se indican en la la- 
bla de la página siguiente. 
Cuando los operandos interesados por una pro- 
posición IF no tienen la misma longitud, la com- 
paración se hace como si el operando de longi- 
tud inferior estuviese lleno con blanks a la dere- 
cha hasta tener la dimensión del operando de 
mayor longitud. 
A este propósito, volvamos a considerar el 
ejemplo ya indicado 

IF SW-ACEPTACION = '0' 

PERFORM PROCESA 
ELSE 
PERFORM FIN-PROCESO. 


donde SW-ACEPTACION en el momento 'del 
análisis contiene 


MECANISMO DE COMPARACION ENTRE DOS CAMPOS ALFANUMERICOS 


¿Es igual el 1." carácter de 
CAMPO-1 al 1.* carácter 
de CAMPO-2? 


¿Es igual el 2” carácter de 
CAMPO-1 al 2” carácter 
de CAMPO-2? 


¿Es igual el 3” carácter de 
CAMPO-1 al 3” carácter 
de CAMPO-2? 


(valores menores) (valores menores) 


blank (espacio en blanco) 
punto o punto decimal 
menor 

paréntesis abierto 

más 

dólar 

asterisco 

paréntesis cerrado 
punto y coma 

menos o trazo de unión 
barra 

corra 

mayor 

comilla 

igual 

doble comilla 

letras de A a Z 
números de O a 9 


(valores mayores) 


blank (espacio en blanco) 
doble comilla 

dólar 

comilla 

paréntesis abierto 
paréntesis cerrado 
asterisco 

más 

coma 

menos o trazo de unión 
punto o punto decimal 
barra 

números de O a 9 
punto y coma 

menor 

igual 

mayor 

letras de A a Z 


(valores mayores) 
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Como la constante alfanumérica O está constitui- 
da por un solo caracter, la comparación se reali- 
za entre los campos 


SW-ACEPTACION 


Constante '0' 
extendida a tres caracteres | 


Como puede observarse, independientemente 
del código utilizado, los dos valores nunca po- 
drán'ser iguales, por lo que el programa llamará 
siempre el procedimiento FIN-PROCESO. 
Contrariamente a lo que sucede para los cam- 
pos no numéricos, y como es lógico, la compa- 
ración entre los campos numéricos no tiene en 
cuenta las longitudes de los campos compara- 
dos, sino sólo su valor algebraico (en la compa- 
ración entre campos numéricos se respetan to- 
das las reglas matemáticas), y de ello resulta 
por ejemplo que 


+ 0000005.0000 es igual a 5 
425 es mayor que — 728 
+2 es mayor que — 65 


Análisis de signo. La proposición |lF puede 
efectuar el análisis del signo del contenido de 
un campo numérico, o-del resultado de una ex- 
presión aritmética, utilizando el formato ilustrado 
en la tabla de abajo. Supóngase que se tienen 
que calcular las raíces de una ecuación de se- 
gundo grado, expresada en la forma 


A+Bx+C=0 


Como se sabe, las fórmulas que resuelven la 
ecuación son 


Gal 


l1en-2nmtmeétiCa 


_—B-VB4AC 


* 

, 2A 

y —B+ VB 440 
ci 2A 


Se desean calcular sólo las raíces reales de la 
ecuación, indicando el caso en que las mismas 
son complejas conjugadas. Llamando con A 
(discriminante) el término B*-4AC que apare- 
ce dentro de la raíz cuadrada, de las matemáti- 
cas se sabe que las raíces de la ecuación de 2* 
grado son: 

— reales y diferentes cuando A>0 

— reales y coincidentes cuando A = 0 

— complejas y conjugadas si A<0 

Por otra parte, para poder calcular el valor de xy 
y X>2, el valor de A debe ser diferente de 0. 

El diagrma de flujo de un programa que calcula 
las raíces de una ecuación de segundo grado 
se ha representado en el gráfico de la página 
siguiente, y el listado en la pág. 1066. 

Se recuerda que la raíz cuadrada de un número 
equivale a elevar la potencia el mismo número 
con un exponente 1/2 o bien 0.5. Por tanto: 


VB?*-4AC = VDELTA = (DELTA)"? = 
= (DELTA)?* = DELTA xx 0.5 


Obsérvese que el cálculo de DELTA se ha efec- 
tuado exteriormente a la IF, puesto que era con- 
veniente calcularlo una sola vez en lugar de tres, 
tantos como eran los análisis de signo previstos. 
Para concluir podemos añadir que un análisis 
de signo siempre puede reconducir a un análi- 
sis de relación, comparando el valor del campo 
o de la expresión con 0. 


Análisis de condición. Hablando de la descrip- 
ción de los nombres de los campos de la DATA 
DIVISION se ha analizado la función del nivel 
88. En este contexto se recuerda que si un cam- 
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CALCULO DE LAS RAICES DE UNA ECUACION DE SEGUNDO GRADO 


Entrada primer coeficienie 
de la ecuación 


Entrada segundo y tercer 
coeficientes 


Se calcula el discriminante 
A=B?-4*Ax*C 


coincidentes 


NO 4 Aes mayor que O 


=] 


y 


e 
cD 
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CALCULO DE LAS RAICES DE UNA ECUACION DE SEGUNDO GRADO 


01. A PIC 59167019 (3) COMP, 
01 E FIC $59(6)V49 (3) COMP. 
LIE" PIC 59(6)U49 (3) COMF, 
01 DELTA FIC 39 (6)V9 (3) COMP. 
ol X1 PIC 59(6)V49(3) COMP. 
01 x2 PIC 5916)V49 (03) COMP, 


ES 
* 
PROCEDURE DIVISION, 
INICIO. 
DISPLAY * CALCULO ECUACION 2.10 GRADO” 
UPON CONSOLE. 
ACEFTA-A, 
IISPLAY '* TECLEAR PRIMER COEFICIENTE A = 
UPON CONSOLE, 
ACCEPT A FROM CONSOLE, 
IF A 15 EQUAL ZERO 
DISPLAY 'xxx ERKOR xx! 
* COEFICIENTE A DERE SER MIFERENTE DE 0* 
UPON CONSOLE 


GO TO ACEFTA-A. 1 
DISPLAY '* TECLEAR SEGUNDO COEFICIENTE E = ” 
UFON CONSOLE. —4 


ACCEPT E FROM CONSOLE. 
DISFLAY '* TECLEAR TERCER COEFICIENTE C= ” - 
UFON CONSOLE. 
ACCEFT € FROM CONSOLE. . 
COMFUTE UELTA = Ek xe 2-4 Ax C, 
IF. DELTA 18 NEGATIVE 
DISFLAY '* DELTA NEGATIVO «+ 
e RAICES COMPLEJAS +" 
UFON CONSOLE 
GO TO FIN, = 
1F-— DELTA 15 ZERO 
DISPLAY '*x MELTA NULO +! 
"e RAICES COINCIDENTES *' 
UPON CONSOLE. 
IF. DELTA 15 FOSITIVE 
DISPLAY '* DELTA FOSITIVO *' 
"e RAICES REALES Y DIFERENTES *' 
FR CONSOLE, — 
COMPUTE X1 = (0 - B- DELTA * ,5) / 2 * As 


COMPUTE X2 = (0 - Bo DELTA *x .5) / 2 XA, =3 
DISPLAY '** Xi = ' X1 
Ú ' e 
ex X2 = ' X2 
UFON CONSOLE. 
FIN. 
DISPLAY 'FIN CALCULO" . 
UPON CONSOLE. 
STOF RUN. ES 
po se ha descrito con una o más definiciones a 05 ESTADO-CIVIL PIC 9. 
nivel 88 no puede analizarse el contenido ha- 88 SOLTERO VALOR 1. 
ciendo referencia directamente a estas defini- 88 CASADO VALOR 2. 
ciones. Los dos ejemplos que siguen eviden- 88 VIUDO VALOR 3. 


cian la ventaja que se deriva de utilizar esta po- 
sibilidad del Cobol. 


Sa tiens un recorel EMPLEADO destriv asl Evidentemente, en el contexto del programa, la 


instrucción que sigue tiene una interpretación 


01 EMPLEADO. mucho más inmediata. 


05 MATRICULA PIC 9(5). IF VIUDO 
05 NOMBRE PIC X(30). PERFORM LO QUE SEA 
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en lugar de la siguiente 


IF ESTADO-CIVIL = 3 
PERFORM LO QUE SEA 


De los ejemplos citados puede verse que el 
análisis de condición equivale a verificar de for- 
ma discursiva el significado lógico del suceso 
ligado a un cierto contenido del campo. 

La ventaja es aún más evidente cuando las con- 
diciones a verificar son muy numerosas y liga- 
das entre sí en secuencia. 

Considérese el caso en que deba leerse un file 
de fichas en el que los artículos descritos en ca- 
da una de ellas tiene un código de dos caracte- 
res; supongamos que, de éstos, el primero de- 
ba estar siempre y ser sólo una letra, mientras 
que el segundo debe estar siempre y ser sólo 
un número comprendido entre 4 y 9. 

Para verificar la validez de cada ficha leída sería 
necesario verificar todas las posibles combina- 
ciones. Sin embargo, la solución se hace muy 
sencilla adoptando la siguiente descripción, en 
la que a SERIE-VALIDA hay asociada toda la se- 
cuencia de caracteres que van de A a Z (VA- 
LUE 'A' THRU Z), mientras que a NUMERO- 
VALIDO se asocian los números que van de 4 a 
9 (VALUE 4 THRU 9): 


01 FICHA-ARTICULO 


05 CODIGO-ARTICULO 
10 SERIE-ARTICULO PIC X. 
88 SERIE-VALIDA VALUE 'A' 
THRU 2”. 


10 NUMERO-ARTICULO PIC 9. 
88 NUMERO-VALIDO VALUE 4 
THRU 9. 


Por tanto, la instrucción para el control de 
CODIGO-ARTICULO puede escribirse: 


IF NOT SERIE-VALIDA 
PERFORM ERROR-SERIE 
GO TO LEE- FICHAS. 

IF NOT NUMERO-VALIDO 
PERFORM ERROR-NUMERO 
GO TO LEE-FICHAS. 


Análisis de clase. El último tipo de análisis que 
puede realizarse con la instrucción IF es el de 
clase. Es posible verificar si el contenido de un 
cierto campo es, en un determinado momento, 
de clase numérica o alfabética. 

El formato de la IF para este tipo de análisis se 
describe en la primera de las dos tablas de 
abajo. 

Este tipo de análisis requiere el respeto de algu- 
nas reglas intuitivas: se sabe que un campo de- 
finido alfanumérico (PIC X) puede albergar tanto 
cifras como letras; para un campo similar tiene 
sentido efectuar el test para saber si su conteni- 
do es NUMERIC o ALPHABETIC; y viceversa, 
verificar si un campo definido alfabético (PIC A) 
contiene números es un contrasentido lógico y 
sintáctico. Es posible reunir en una única tabla 
(ver tabla al final de la página) los análisis de 
clase que pueden efectuarse (y no) sobre diver- 


ANALISIS DE CLASE 
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sos tipos de campo. Además, téngase presente 
que el campo en que se realiza el control debe 
ser USAGE DISPLAY, implícita o explícita. 


Empleo de los operadores lógicos. Hasta 
aquí se han descrito todos los análisis que es 
posible efectuar mediante la proposición IF so- 
bre un solo suceso; es decir, se han tratado 
condiciones sencillas. 

Sin embargo, análogamente a lo que sucede en 
el pensamiento humano, la acción a emprender 
depende del resultado de varios análisis inter- 
conexos, a menudo de tipo diferente, y efectua- 
dos para cualquier número y tipo de variables. 
La concatenación lógica de varias condiciones 
puede obtenerse utilizando los operadores lógi- 
cos AND, OR, NOT del álgebra booleana. 


Esto hace que la frase condicional resulte ver- 
dadera siempre que la primera condición y la 
segunda resulten verdaderas. 

Considérese por ejemplo 


PIC 9 VALUE 1. 
PIC 9 VALUE O. 


01 CAMPO-1 
01 CAMPO-2 


Si durante la ejecución quiere verificarse si el 


contenido de los dos campos todavía es el im- 
plantado inicialmente, puede escribirse 


IF CAMPO-1 = 1 


AND 
CAMPO-2 = 0 
PERFORM CAMPOS-OK 


ELSE (uta dnares 
La llamada al procedimiento CAMPOS-OK se 
activa sólo cuando los dos campos cumplan si- 
multáneamente las condiciones requeridas: es 
suficiente que una de las dos no se verifique 
para que el control pase a las instrucciones su- 
bordinadas a la cláusula ELSE. 

Un ejemplo muy frecuente de aplicación del 
operador AND es el relativo a la elección de los 
records de entrada de un file sobre la base de la 
pertenencia o no de un dato a un intervalo preci- 
sado. 

Considérese el caso en que las fichas del file 
FICHAS tengan la siguiente descripción: 


01 FICHA-WS. 
05 TIPO-FICHA PIC X(3). 
88 FICHA-VALIDA VALOR "ABC*. 
05 FECHA-FICHA. 
10 AÑO-FICHA PIC 9(2). 
10 MES-FICHA PIC 9(2). 
10 DIA-FICHA PIC 9(2). 
Mariam pen 


_ EJEMPLO DE USO DEL OPERADOR AND 


PROCEDURE DIVISION. 
INICIO. 
OFEN INFUT FICHAS. 
PRIMERA LECTURA. 
READ FICHAS INTO FICHA-YS 
AT END 


DISPLAY 'xx FILE FICHAS VACIO xx' 


UPON PRINTER 


CLOSÉ FICHAS 


STOP KUN. 
CONTROL. 
1F FICHA-VALITDIA 
ANTI 
FECHA-=FICHA = FECHÁA- INICIAL 
ANTI 


FECHA-FICHA < FECHA-=FINAL 
FERFORM PROCESA-=FICHA. 
READ FICHAS INTA FECHA-WS 
AT ENT 
CLOSE FICHAS. 
STO RUN, 
GO TO CONTROL. 
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EJEMPLO DE USO DEL OPERADOR AND 


Supongamos que sólo deben procesarse las fi- 
chas de tipo 'ABC' y correspondientes al perío- 
do comprendido (extremos excluidos) entre 


01 FECHA-INICIAL, 


05 AÑO-INIC PIC 99. 

05 MES-INIC PIC 99. 

05 DIA-INIC PIC 99. 
01 FECHA-FINAL. 

05 AÑO-FIN PIC 99. 

05 MES-FIN PIC 99. 

05 DIA-FIN PIC 99. 


La fase de elección y proceso de las fichas pue- 
de detallarse como se ve en el listado de la pá- 
gina anterior, que corresponde al diagrama de 
flujo representado arriba. 

Es suficiente que la ficha no sea del tipo ABC, o 
que uno de los dos límites del intervalo no sea 
respetado, para que el control pase a la instruc- 
ción siguiente que cierra la IF. Sin embargo, por 
esta instrucción se pasa cualquiera que sea el 
resultado de la IF, puesto que la READ no está 
subordinada a la cláusula ELSE. La validez y la 
claridad de la solución propuesta pueden apre- 
ciarse observando, por comparación, el siguien- 
te detalle del mismo párrafo CONTROL: 
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CONTROL, 
IF FICHA-VALIDA 
IF FECHA-FICHA > FECHA-INICIAL 
IF FECHA-FICHA < FECHA-FINAL 
PERFORM PROCESA-FICHA. 


En este caso se ha utilizado una serie de ins- 
trucciones IF anidadas. 

Adoptar este tipo de codificación, sobre todo en 
los casos menos sencillos que el descrito, com- 
porta generalmente una notable pérdida de le- 
gibilidad del programa y un gran incremento de 
las posibilidades de error, 

Una serie de IF anidadas conduce al lector a 
niveles siempre más profundos, haciéndola per- 
der el hilo lógico del análisis realizado por el 
programa. 


El siguiente ejemplo es una aplicación de los 
operadores lógicos AND y OR usados para cen- 
sar los empleados de una empresa no casados 
y con fecha de nacimiento comprendida entre el 
31 de diciembre de 1940 y el 1 de enero de 
1960 (extremos incluidos). El file que contiene 
los datos es el file de fichas NOMINA. El diagra- 
ma de flujo correspondiente al ejemplo se ha 
representado en la página siguiente, y el listado 
del programa en la página 1072. 


Esta posibilidad es prácticamente imposible en 
el caso de IF sencillas, en las que debe evaluar- 
se la verificación o no de un solo suceso: la si- 
guiente frase 


IFANOT =B 
PERFORM PRIMERA-ACCION 
ELSE 
PERFORM SEGUNDA-ACCION. 
no presenta ninguna duda, puesto que el senti- 
do de la irstrucción es de lectura inmediata. 
No resulta tan inmediata la comprensión de una 
frase con una o más condiciones negadas co- 
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nectadas con otros operadores lógicos AND y 
OR, puesto que éstas respetan las reglas gene- 
rales del álgebra booleana. Sin entrar a fondo 
en el tema, considérese a continuación el si- 
guiente ejemplo. 

Debe leerse el file EMPLEADOS, en el que cada 
ficha contiene el campo relativo al estado civil 
del empleado. 


01 EMPLEADO. 

oros 

De errassa 

05 ESTADO-CIVIL PIC 9. 
88 SOLTERO VALOR 1. 
88 CASADO VALOR 2. 
88 VIUDO VALOR 3 

Diario pre 


Durante la lectura del file de fichas se quiere 
controlar la validez del campo ESTADO-CIVIL: 
si éste contiene un número igual a 1, 2 0 3, el 
proceso puede continuar; en caso contrario, es 
necesario emitir una oportuna señal de error. 
En codificación Cobol puede escribirse como 
sigue: 


IF SOLTERO 


PERFORM PROCESA 
ELSE 
DISPLAY 'ESTADO CIVIL ERRONEO" 
UPON CONSOLE. 


Si por motivos de estructuración del programa 
debe analizarse el caso de error, o bien contro- 
lar si el estado civil no es soltero, ni casado, ni 
viudo, puede pensarse intuitivamente en codifi- 
car las instrucciones de la forma siguiente: 


IF NOT SOLTERO 
OR 
NOT CASADO 
OR 
NOT VIUDO 


DISPLAY 'ESTADO CIVIL ERRONEO' 
UPON CONSOLE 
ELSE 
PERFORM PROCESA. 


EJEMPLO DE USO DE LOS OPERADORES AND Y OR 


AT END 


En realidad, adoptando las instrucciones descri- 
tas, todas las fichas se señalarán como si fue- 
sen erróneas. 

Efectivamente, supóngase que el empleado 
descrito en la ficha a procesar sea soltero. En 
este caso, la primera condición para descartar 
la ficha no se verifica, ya que es verdad que el 
empleado es soltero; sin embargo, siguiendo en 
el análisis de la frase, el empleado (soltero) no 
puede ser casado y, por tanto, se verifica la 
condición de error, 

El análisis de la frase continúa hasta la verjfica- 
ción para viudo, pero en este punto ya se han 


verificado dos condiciones de error, por lo que 
se emite la indicación 'ESTADO CIVIL ERRO- 
NEO', aunque en realidad, el significado de este 
mensaje no es exacto. 

La explicación de lo dicho se expresa sintética- 
mente con la siguiente fórmula: 


NOT (A OR B) = (NOT A) AND (NOT B) 
La negación global de una serie de condiciones 
alternativas (OR) puede expresarse sólo como 
producto lógico (AND) de las negaciones de las 
condiciones componentes. 
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EJEMPLO DE USO DE LOS OPERADORES AND Y OR 


01 EMPLEADO-WS, 


035 MATRICULA PIC 93), 
05 NOMBRE PIC X(30). 
05 ESTADO-CIVIL PIC 9. 
88 SOLTERO VALVE 1. 
88 CASADO VALUE 2. 
88 VIUDO VALUE 3, 
039 FECHA-NACIMIENTO, . 
10 AÑO-NACTMIENTO PIC 9(2), 
10 MES-NACIMIENTO PIC 9(2), 
PIC 9D 


10 DITA-NACIMIENTO 


ENEE 
ON 
CC EPRENEST 
k 
> 
01 CONTADOR 
x 
A 
* 
PROCEDURE IIVISION. 
INICIO, 
OPEN INPUT NOMBRE. 
PRIMERA-LECTURA. 
READ NOMBRE INTO EMPLEADO-4S 
AT END 
DISPLAY 
UPON PRINTER 
CLOSE NOMBRE 
0 STOP RUN, 
CUNTROL.. 


IF (SOLTERO OR V1IULNO) 
ANI 
FECHA-NACIMIENTO + 401231 
ANI 
FECHA-NACIMIENTO < 600101 
ADD 1 TO CONTADOR. 
READ NOMBRE INTO EMPLEADO-YS 
AT ENb 
CLOSE NOMBRE 
DISPLAY 
'PEDIDOS = 
CONTADOR 


PTC 9(4) COMP VALUE 0, 


Pé FILE NOMBRE VACIO *x*” 


1% EMPLEADOS NO CASAINOS ” 


UPON PRINTER. 


STOP RUN, 


Por tanto, la codificación correcta de la segun- 
da forma de la frase debe ir como la que se ha 
escrito a continuación: 


IF NOT SOLTERO 
AND 
NOT CASADO 
AND 
NOT VIUDO 
DISPLAY, ESTADO CIVIL ERRONEO' 
UPON CONSOLE 
ELSE 
PERFORM PROCESA. 
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Para finalizar, debe subrayarse que en caso de 
que se deban analizar más condiciones simultá- 
neamente, es una buena norma controlar la se- 
cuencia de las condiciones reuniendo los gru- 
pos sencillos entre paréntesis. De esta manera 
se tiene la doble ventaja de evitar errores y de 
hacer de fácil interpretación el sentido lógico del 
análisis efectuado por el programa. 


La instrucción GO TO 


Todas las instrucciones de un programa Cobol 
se realizan en la misma secuencia en que las ha 
escrito el programador, a menos que éste no 


altere el orden de ejecución recurriendo a la ins- 
Irucción de salto GO TO. 

Un programa Cobol podría estar constituido en 
leoría por una serie de instrucciones todas per- 
lenecientes a un párrafo único como se+indica a 
continuación: 


PROCEDURE DIVISION. 
INICIO. 
PEN senses 


ADD o......... 


STOP RUN. 


Es del todo evidente que un programa de este 
tipo sólo puede realizar funciones extremada- 
mente sencillas. La repetición de una o más 
operaciones siempre iguales, como por ejemplo 
la lectura de un file y el proceso de sus records, 
impone alterar el flujo estrechamente secuencial 
del programa creando fases iterativas sobre un 
cierto número de instrucciones oportunamente 
reunidas. 


Sin embargo, se sabe que un programa Cobol 
puede estar organizado en párrafos y seccio- 
nes. Esta organización es particularmente fun- 
cional cuando, asociada al uso del verbo PER- 
FORM, permite crear puntos de enganche a los 
cuales puede cederse el control utilizando la 
instrucción GO TO. Para el Compilador, los 
nombres de párrafos y de secciones son com- 
pletamente transparentes, a menos que no se 
llamen con una instrucción GO TO, El formato 
más sencillo con que puede escribirse esta ins- 
trucción es: 


donde nombre-de-procedimiento es un nombre 
compuesto como máximo por 30 caracteres al- 
fanuméricos perforados a partir del margen A 
(columna 8). 

Un salto de un punto a otro del programa puede 
estar condicionado a la verificación de un suce- 
so previsible o incondicionado y, por tanto, in- 
troducido por el programador para pasar al pro- 
cedimiento indicado. 

Las dos situaciones descritas se evidencian en 
los siguientes ejemplos: 


Cuadro de control de una central eléctrica de distribución. 
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K. Reese/Marka 


Primer caso 

ADD 1 TO CONTADOR. 

IF CONTADOR > 100 
GO TO FIN 

ELSE 


Segundo caso 
MOVE A TO B. 
ADD 100 TO K. 
GO TO PROCEDIMIENTO-1. 


En el primer caso, el salto al procedimiento FIN 
se efectúa sólo cuando el contenido del CON- 
TADOR supera el valor 100, mientras que en el 
segundo caso, el salto a PROCEDIMIENTO-1 se 
realiza en cualquier caso después de haber su- 
mado 100 a la variable K. El programador es 
libre de usar las instrucciones de salto en cual- 
quier punto del programa, pero debe tenerse en 
cuenta que el abuso de este tipo de instrucción 
conduce inevitablemente a un producto de es- 


casa legibilidad. Y viceversa, un uso escaso y 
limitado de GO TO hace más evidente el flujo 
lógico de las operaciones, con gran ventaja para 
el mantenimiento, la depuración y la claridad 
del programa. 

Un ejemplo típico de utilización de GO TO es el 
que se tiene en la lectura de un file y en el con- 
trol de las condiciones de fin de file. En muchos 
de los ejemplos indicados, puede observarse 
que el flujo de las operaciones de lectura de un 
file secuencial respeta el esquema de la figura 
de abajo. 

La primera lectura, llamada también «lectura 
fuera de ciclo», se realiza una sola vez, inmedia- 
tamente después de la apertura del file. 

Es evidente que la verificación de las condicio- 
nes de fin de file en este contexto denuncia que 
el file está vacío. Naturalmente, una condición 
similar es anómala y, por tanto, se jusifica el cie- 
rre del proceso. 

Si el file no está vacío, el control pasa a la prime- 
ra instrucción a realizar después de la READ, y 
el record leído se procesa. 


CICLO DE LECTURA DE UN FILE SECUENCIAL 
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CICLO DE LECTURA DE UN FILE SECUENCIAL 


OPEN INFUT FILE-IN, 
PRIMERA-LECTURA. 
READ FILE-IN INTO REC-1 


AA A) 


a a is e ETNIA. CMD AN 


Terminada esta fase se tiene una segunda ins- 
trucción de lectura, que se realizará tantas ve- 
ces como records haya en el file. 

El detallado del ciclo completo resulta tener la 
estructura indicada en el listado de arriba. 


La cláusula DEPENDING ON. GO TO se utiliza 
generalmente después de la verificación de la 
producción de un cierto suceso: según el resul- 
tado de la indagación efectuada, el control se 
direcciona hacia los oportunos procedimientos. 
El caso de empleo más difundido se describe 
en el siguiente ejemplo: 


ELSE 


GO TO A-DIFEREN [E-1. 


De este modo es posible ceder el control a los 
dos procedimientos A-IGUAL-1, A-DIFERENTE- 
1 según el resultado del test. 


En e caso en que las condiciones a verificar 
sean más de una, puede resultar muy enojoso 
escribir 


IFA =1 

GO TO PROCEDIMIENTO-1. 
IFA=2 

GO TO PROCEDIMIENTO-2. 
IFA=3 

GO TO PROCEDIMIENTO-3, 


IFA=N 
GO TO PROCEDIMIENTO-N. 


La cláusula DEPENDING ON ligada a la ins- 
trucción GO TO permite obtener el mismo resul- 
tado de esta manera: 


GO TO PROCEDIMIENTO-1 
PROCEDIMIENTO-2 
PROCEDIMIENTO-3. 
PROCEDIMIENTO-N DEPENDING 
ON A. 
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El flujo de operaciones que el Compilador activa 
en base a dicha codificación es exactamente 
igual al descrito anteriormente. 

Sin embargo, debe precisarse que 


m el campo especificado en la cláusula DE- 
PENDING ON (A en el ejemplo) debe ser un 
campo numérico 

m si el contenido del campo especificado es 
un número diferente de 1, 2, ..., N (los proce- 
dimientos relacionados), el control pasa a la 
instrucción que sigue al comando de salto 

m los nombres de los procedimientos deben 
relacionarse de manera que el número con- 
tenido en el campo especificado en la cláu- 
sula DEPENDING ON identifique su posición 
en la relación. 


Por ejemplo, la frase 
GOTO A 
B 


C 
D 
E DEPENDING ON NUMERO. 


pasará el control al procedimiento A si NUME- 
RO = 1, al procedimiento B sí NUMERO = 2, y 
así sucesivamente. 


El verbo PERFORM 


La instrucción PERFORM, ya introducida y utili- 
zada en algunos de los ejemplos presentados, 
permite enviar a ejecución con un único coman- 
do todas las instrucciones pertenecientes a un 
párrafo o a una sección. Esta posibilidad permi- 
te subdividir el programa en bloques funciona- 
les que pueden reclamarse en cualquier punto 
del flujo del proceso. 

El empleo de esta instrucción, junto al carácter 
descriptivo propio del Cobol, permite estructu- 
rar el programa de forma sintética y autodocu- 
mentada. 

Naturalmente, esta última característica está su- 
bordinada a que el programador use, para cada 
nombre de procedimiento invocado por el verbo 
PERFORM, nombres explicativos de la función 
que realiza dicho procedimiento, 

Si, por ejemplo, una sección de programa efec- 
túa el cálculo del ITE es aconsejable llamarla 
CALCULA-ITE y no con siglas de tipo C-l o de 
tipo similar. 

La instrucción PERFORM está dotada de mu- 
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chas cláusulas, que se analizarán a continua- 
ción; el formato base al que se hará referencia 
en las notas de introducción es el siguiente: 


donde «nombre-de-procedimiento» es el nom- 
bre de un párrafo o de una SECTION. 

En la página siguiente se ha esquematizado la 
dinámica mediante la cual el programa realiza 
todas las instrucciones contenidas en un proce- 
dimiento cuando éste es invocado en una 
PERFORM. En la figura también es posible ver 
cómo el control de las operaciones pasa del 
programa principal a los procedimientos llama- 
dos y cómo de éstos se restituye a la primera 
instrucción que debe realizarse inmediatamente 
después del verbo de llamada. 

Por otra parte es posible observar que un proce- 
dimiento puede contener la llamada a otro pro- 
cedimiento, tanto si éste es externo como si está 
contenido en el que llama. 

Además, un procedimiento puede llamar un nú- 
mero cualquiera de veces desde un punto cual- 
quiera del programa. 

En el esquema citado aparece, entre los diver- 
sos procedimientos invocados, también un 
PROCEDIMIENTO-3 que resulta ser una sub- 
parte del PROCEDIMIENTO-2. Por sencillez, su- 
póngase que las funciones de PROCEDIMIEN- 
TO-3 sean asumidas por el conjunto de instruc- 
ciones relacionadas abajo y comprendidas en- 
tre el nombre de párrafo PARRAFO-1 y el nom- 
bre de párrafo PARRAFO-4: 


PARRAFO-1. 
MOVE A TO B. 


PROCEDIMIENTO-3 


ADD 1 TO K. 
PARRAFO-4, 


Irnaresnens 


Es posible llamar con una sola instrucción todas 
las indicadas con el corchete escribiendo senci- 
llamente 


LLAMADAS DE PROCEDIMIENTO MEDIANTE PERFORM 


Programa principal 


PROCEDIMIENTO-1 


PROCEDIMIENTO-2 


PROCEDIMIENTO-4 


la 


[5] Instrucciones de entrada del control 
Instrucciones de llamada (PERFORM...) 
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El diálogo del hombre 
con las máquinas 


Tomando al azar una jornada típica puede anal;- 
zarse, desde la mañana a la noche, cuántas ve- 
ces se ha tenido ocasión de: 


E hablar con un solo interlocutor (comunica- 
ción interpersonal). 

m hablar a un grupo de personas (comunica- 
ción de grupo). 

"hablar frente a un medio de masas, p.e. ra- 
dio, TV, etc. (comunicación de masas). 


Evidentemente, a menos que no se sea un gran 
presidente, la mayor parte de las ocasiones se- 
rán de tipo interpersonal. 

Esto indica un orden de frecuencia de uso de 
las comunicaciones netamente a favor de los 
coloquios entre personas sencillas, lo que com- 
porta un enirenamiento notable para este tipo 
de comunicaciones, y muy poco entrenamiento 
para las comunicaciones de grupo o de masa. 
La consecuencia es el temor a hablar en públi- 


co y el pánico de la grabación (audio o vídeo), 
que nos hace aparecer peores.comunicadores 
de lo que en realidad somos. ; 
La dificultad de comunicación podría represen- 
tarse en una escala de valores del tipo indicado 
en la segunda parte de la figura de abajo. 
¿Por qué todo esto? 

Entre muchos motivos, uno es el principal: la 
gradual reducción del control sobre las comuni- 
caciones de retorno (retroacción o feedback) 
que sigue un proceso igual a la escala de difi- 
cultades indicada antes, pero invertido (ver la 
primera parte de dicha figura). 

El fenómeno puede explicarse mediante lo que - 
podría definirse como la teoría del murciélago. - 
Como se sabe, el murciélago es un animal que 
ve poco, pero posee par don natural una espe- 
cie de sistema de radar que puede emitir seña- 
les que, reflejadas por los obstáculos situados - 
en su camino, le revelan su existencia y le per- 
mite evitarlos. Es un sistema de análisis de las 
señales de retorno. 

En el coloquio, el hombre se comporta de la 
misma manera. Observa a su interlocutor y ob- 


CONTROL DE LA RETROACCION ASOCIADO A TRES TIPOS DE COMUNICACION 


m Comunicación de masas 


"m Comunicación de grupo 


m Comunicación 
interpersonal 


Control de la retroacción 
casi nulo 


Retroacción controlable con 
dificultad mediana 


Retroacción plenamente 
controlable 


GRADOS DE DIFICULTAD ASOCIADOS A TRES TIPOS DE COMUNICACION 


a Comunicación ; 
interpersonal (coloquio) 


"= Comunicación de grupo 


= Comunicación de masas 
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Dificultad reducida 


Dificultad media 


Dificultad máxima 


tiene una serie de señales: el movimiento de los 
ojos, de la boca, de las manos son códigos pre- 
cisos que indican atención, enojo, prisa, estu- 
por, etc. Basta con pensar en la señal de aten- 
ción que envía inconscientemente el que escu- 
cha con los ojos fijos, la cabeza quieta, o sea 
completamente dedicado a escuchar, en con- 
traposición con el que escucha tamborileando 
los dedos sobre la mesa, mirando a menudo el 
reloj, bostezando, etc. 

Este tipo de control de las señales de retorno 
también puede producirse en la comunicación 
de arupo, aunque el grado de dificultad aumen- 
ta a causa del número de interlocutores a tener 
bajo control simultáneamente. 

En carmbio, desaparece completamente cuan- 
do nuestra comunicación es directa a un micró- 
fono, o a una cámara de TV o de cine. Por esto, 
para muchas personas, hablar ante un ojo de 
vidrio inexpresivo y minucioso en su silencio pa- 
sivo, resulta aterrorizador. Lo mismo puede su- 
ceder frente a un teclado de ordenador. 

Esto se debe a que la ausencia de señales hu- 
manas de retorno los inhibe. Pero con una ob- 
servación más atenta, se verá que entre estas 
señales buscamos (equivocándonos a veces) 
recoger sólo «refuerzos» positivos. 

Es decir, buscamos ayuda, incluso sin darnos 
cuenta. Efectivamente, una de las funciones fun- 
damentales de la comunicación es la del conti- 
nuo alivio de la ansiedad, junto a muchas otras. 
El hombre, además de placer tiene necesidad 
de comunicar. Richard Stevens relaciona ocho 
funciones de base alrededor de las cuales se 
desarrolla la actividad de relación humana. Co- 
municamos 


m para realizar o conseguir cualquier cosa 
(Funciones instrumentales) 

m para hacer que cualquiera se comporte de 
una determinada manera (Función de con- 
trol) 

m para descubrir o explicar cualquier cosa 
(Función informativa) 

m porel interés que se encuentra en una situa- 
cion dada (Función de estimulación) 

"porque la situación lo requiere (Función liga- 
da al papel) 

m para expresar nuestros sentimientos o para 
imponernos en alguna forma (Función ex- 
presiva) 

m “por el gusto de estar en compañía (Función 
de contacto social) 


E para airear un problema, dar salida a una 
preocupación (Función de alivio de la ansie- 
dad). 


Como puede observarse, al menos tres de las 


funciones descritas, la expresiva, la de contacto 


social y la de alivio de la ansiedad, evidencian la 
necesidad de intercambiar relaciones humanas 
con los demás. Veamos cómo Stevens ilustra 
más ampliamente estas tres funciones. 


Función expresiva. Una mujer se confía a una 
amiga. Un hombre reprende con ira el error de 
un colega. Un enamorado susurra tiernas pala- 
bras de amor. La comunicación es un proceso 
gue permite expresar nuestro modo de sentir: 
puede ser espontánea y auténtica, o bien cuida- 
dosamente construida para conseguir un fin de- 
seado. Esta deliberada presentación puede 
producirse para conseguir objetivos instrumen- 
tales: por ejemplo, para causar buena impresión 
a un potencial suministrador de trabajo durante 
un coloquio. La función autoexpresiva de la co- 
municación puede actuar de maneras aisimula- 
das y sutilmente evasivas. Lo que durante una 
recepción podría parecer sólo un intercambio 
casual de informaciones, en realidad puede ser 
un intento de manifestar agudeza e inteligencia; 
una discusión de política puede constituir para 
uno de los interlocutores la ocasión de maniles- 
tar la propia superioridad sobre otro. 

El estilo de la comunicación, el lenguaje em- 
pleado, las palabras que: se utilizan, pueden 
constituir la manera de afirmar la pertenencia a 
un grupo. Muchas subculturas, grupos profesio- 
nales o de otra tipo tienen una jerga específica, 
que debe conocerse y usarse en la forma apro- 
piada para poder ser miembros de ellas. 


Funciones de contacto social. La comunica- 
ción puede ser un fin en sí misma. Como en to- 
das las características humanas, también en es- 
te caso hay diferencias de individuo a individuo. 
Sin embargo, la mayor parte de nosotros man!- 
fiesta en mayor o menor medida el deseo de la 
compañía de otras personas por el simple gusto 
de estar juntas. Buscamos de forma particular el 
contacto con personas de nivel y experiencia si- 
milares a los nuestros. Los experimentos psico- 
lógicos, por un lado, y los relatos de náufragos o 
de eremitas por otro, demuestran que el aisla- 
miento social suele producir resultados bastan- 
te devastadores. 
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Función de alivio de la ansiedad. Está amplia- 
mente documentado el hecho de que cuando 
un individuo se encuentra en una situación que 
induce ansiedad, las más de les veces tiende a 
buscar el contacto con los demás. El psicólogo 
americano Stanley Schachter ha encontrado, 
por ejemplo, que algunas estudiantes que 
creían que debían someterse a tests psicológi- 
cos en los que se les suministrarian dolorosas 
descargas eléctricas preferían en gran medida 
(con respecto a otro grupo de chicas a las que 
se les había dicho que las descargas no serían 
dolorosas) esperar su turno junto con otras. Esto 
sucedía sólo sí las compañeras que esperaban 
se encontraban en la misma condición. Schach- 
ter (1959) resumía así la sistuación: «la infelici- 
dad no se contenta con una compañía cual- 
quiera, sino que tiene necesidad de la compa- 
ñía de otros felices». 

Por tanto es claro que la comunicación es útil 
para intercambiar una compleja serie de men- 
sajes, muchos de ellos ricos en implicaciones 
secundarias. No hace mucho, Levi Strauss defi- 
nía la sociedad como un sistema de individuos 
y de grupos humanos que comunican entre sí. 
Por tanto, la comunicación no sólo es un sistema 
de lenguajes, sino un proceso de personas. 
También se ha visto cuánto sirve la comunica- 
ción para los contactos humanos, indispensa- 
bles para aquellas relaciones ve ayuda necesa- 
rías al individuo para sobrevivir sin demasiadas 
angustias. 

Finalmente también se ha visto cómo estas rela- 
ciones, tanto para la costumbre de los intercam- 
bios personales que privilegian los contactos 
entre personas sencillas, como por los contac- 
tos mediante mass media, ponen de relieve el 
diálogo entre individuos. 

¿Pero qué sucede cuando el diálogo no puede 
establecerse entre dos personas porque se tra- 
ta de un hombre y de una máquina? 

Nace un nuevo tipo de diálogo. Cuando la má- 
quina es un ordenador, nace un diálogo espe- 
cíal, hecho de humanidad por una de las dos 
partes y de rapidez de ejecución por otra. 

Por tanto, todo transcurre bien cuando el hom- 
bre, frente al ordenador, pide soluciones rápi- 
das basadas en los programas que él mismo u 
otros hombres en su lugar han proyectado. 

Sin embargo, las cosas empiezan a no funcio- 
nar cuando el hombre no busca, como sería lo 
correcto, sólo rapidez, sino que también pide 
otro tipo de ayuda. En sustancia, cuando busca 
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el diálogo, entendido como lo hemos definido 
antes, O sea Un proceso de intercambio de rela- 
ciones, de sentimientos, de fuga de la sociedad 
o del miedo. 

Es ¡legítimo pedir al ordenador ayuda en el sen- 
tido psicológico, pero a menudo, se hace iín- 
conscientemente. De ahí las preguntas ansio- 
sas de muchos padres. «¿No será nocivo para 
el desarrollo intelectual del niño?» «¿No lo hará 
dependiente de la máquina?» «¿No será una 
ayuda aparente, mientras que en realidad po- 
dría producirse un daño en su capacidad de 
desarrollo del pensamiento?» 

Ante todo, cada generación debería tener el 
buen sentido de no interferir excesivamente en 
las necesidades de la siguiente: es decir, no de- 
bería intentar regirla con el propio patrón de me- 
tro mental por una sencilla razón: la siguiente 
generación NO TIENE las mismas necesidades 
que la anterior. 

Asumamos entonces un primer hecho: HA 
CAMBIADO EL TIPO DE RELACION EN LOS 
DIALOGOS. La cantidad de diálogos entre per- 
sonas cada vez irá disminuyendo, con toda la 
ventaja para los diálogos entre el hombre y el or- 
denador. Quien pretenda obtener del ordena- 
dor la misma función comunicativa que obtenía 
en el diálogo humano, vive fuera del tiempo. 
Cada hombre debe entrenarse para dialogar 
con la máquina y no sentirse frustrado por ello. 
Piénsese cómo ha cambiado la relación con el 
teléfono, que es uno de los medios más difunal- 
dos de comunicación. Hoy, con el teléfono se 
hace todo; parece que sin él casi no se podría 
vivir. Y sin embargo, sólo hace pocas decenas 
de años era considerado una especie de mons- 
truo negro del que había que desconfiar. 
Actualmente, muchas organizaciones de asis- 
tencia telefónica salvan vidas humanas, e inclu- 
so alivian la ansiedad a los deprimidos, gracias 
alos contactos telefónicos. Sin embargo, se dirá 
que más allá del hilo hay una presencia humana 
y que, por lanto, aunque mediada, la presencia 
del hombre no desaparece totalmente. 

Es cierto: el software con el que hay que dialo- 
gar o con el que se juega al ajedrez no es, en 
términos psicológicos lo mismo. Pero en esta re- 
lación ¿es la máquina la que debe modificarse O 
es el hombre? Si pedimos a la máquina calor 
humano, sentimientos, ayuda psicológica y no 
los obtenemos ¿es que la máquina es defectuo- 
sa? No. 

No es legítimo pedir lo que no puede tenerse. 


Por tanto, el ordenador termina por convertirse 
en un test de equilibrio psicológico. Si no nos 
sentimos bien con la máquina, es que no nos 
sentimos bien con nosotros mismos. Quizá tene- 
mos necesidad de relaciones de ayuda, pero 
éste es un problema que no corresponde al or- 
denador. 

El ordenador es un instrumento. Los intrumen- 
tos, por definición, son neutros. El cuchillo sirve 
para cortar el pan o para degollar a un adversa- 
río: esto no depende del cuchillo, sino del uso 
que se hace del mismo. Por tanto, podría decir- 
se que una persona acostumbrada a ener un 
buen equilibrio consigo misma (no obligada a 
depender de las ayudas comunicativas ajenas), 
podría «dialogar» con el ordenador sin ningún 
problema. 

Los psicoanalistas freudianos saben muy bien 
que la «neutralidad« del analista la vive el pa- 
ciente, en las primeras sesiones, como una for- 
ma de hostilidad. «No colabora... Está allí para 
oírme hablar... Pero ¿me toma el pelo... ?». 

Esto indica hasta qué punto exigimos de nues- 
tros interlocutores una intervención activa. La 
neutralidad de la persona con la que intentamos 
dialogar (aunque el psicoanálisis no es un alálo- 
90) nos irrita, hasta que comprendemos que la 


SsiP 


La dificultad de 
comunicación reduce 
a menudo la 
capacidad y el interés . 
de los estudiantes. La > . 
didáctica gestionada mas . 


porel ordenador (ala a ; k E: 5 6 
derecha) derriba la ás — 4 


barrera de la relación SS a 
alumno-maestro. MK » L) Y] 


En estas 
condiciones, el 
control de la 
retroacción es total 
porque la máquina es 
un medio neutro. 
Soluciones 
innovadoras como la ; | 
teleconferencia ? 
(arriba) introducen un 
interfaz electrónico 
entre las personas 
que se comunican, 
aunque hacen 
siempre posible 
dicha comunicación. 


J. Launois/Graziu Neri-Blac! 
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respuesta a nuestros problemas no está en el 
otro, sino en nosotros mismos. 

Si no sabemos «descubrirmos», no será ni un 
diván ni un teclado lo que nos hará daño, aun- 
que será cómodo transferir nuestra angustia a 
estos instrumentos pasivos, acusándolos de su 
pasividad. 

Sin embargo, en el caso de un individuo que se 
acerque al uso del ordenador con un correcto y 
equilibrado enfoque psicológico, el tipo de len- 
guaje utilizado reviste una gran importancia. 
Como se ha visto, no es correcto pedir una ayu- 
da en términos psicológicos al ordenador, mien- 
tras que es legítimo pedir que, después de ha- 
ber pretendido durante mucho tiempo que el 
hombre se adaptase a la máquina, las máqui- 
nas se adapten al hombre no sólo en términos 
ergonométricos, sino en términos de expresivi- 
dad. 

Por expresividad no sólo debe entenderse una 
mejora lingúística en los diálogos hombre- 
máquina, por otra parte ampliamente mejora- 
bles, porque la comunicación entendida como 
palabra escrita es sólo una de ¡as formas expre- 
sivas tanto del hombre como del ordenador. 
La expresividad del ordenador se entiende co- 
mo una forma de comunicación directa al hom- 
bre que, aunque neutra, no es irritante. Los colo- 
res y los sonidos, además de las palabras, son 
un universo todavía por explorar en el nuevo en- 
foque hombre-máquina. Pero el escaso entrena- 
miento para entender la comunicación también 
como un hecho visible 'y sonoro a menudo con- 
duce a dar una mayor importancia al aspecto 
lingúístico, a la palabra escrita. 

El advenimiento de la escritura informática trae- 
rá, y en cierios aspectos ya la ha traído, una 
revolución parecida a la aportada por Guten- 
berg con la invención de los caracteres móviles 
de impresión. La comunicación escrita deberá 
ser más concreta, más sintética. Será necesario 
aprender a transmitir emotividad y expresividad 
sin recurrir necesariamente a ríos de términos 
triunfalistas. ¿Cómo? El camino ya está trazado 
por los técnicos de las comunicaciones escritas, 
los primeros los periodistas y los redactores de 
textos publicitarios. He aquí algunas sugeren- 


cias prácticas para hacer más adaptada al me- 


dio electrónico la comunicación escrita: 


m Usar palabras de pocas sílabas. Según Ru- 
dolph Flesh, un párrafo de 100 palabras es- 
critas en inglés debería tener 200 sílabas 
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m Usar frases cortas, o sea compuestas de 

m sujeto, verbo y predicado con una media de 
unas 15 palabras por frase 

m Dar informaciones útiles a quien recibe el 
mensaje. Es necesario preguntarse constan- 
temente «¿qué recibe el lector de esta afir- 
mación?» 

m  No intentar decir demasiadas cosas a la vez. 
Quien quiere decir demasiado no dice en 
realidad nada 

m Explicar a través de ejemplos. Oportuna- 
mente elegidos, los ejemplos aclaran mucho 
más que muchas definiciones detalladas 

m  Anteponer el ejemplo a la definición. Sí tuvie- 
se que explicarse el efecto sinérgico, podría 
empezarse con un ejemplo: «dos más dos 
igual a cinco. El sinergismo...». En cambio, a 
menudo se hace lo contrario en la comuni- 
cación escrita: primero se define el tema y 
después se pone un ejemplo. Así sucede 
que tiene que volverse a leer todo desde el 
principio, puesto que la definición sólo se 
entiende después de haber leído el ejemplo 

m  Anticipar las conclusiones, según el esque- 
ma conocido como narración invertida típica 
del lenguaje periodístico: primero la conclu- 
sión del hecho y después la cronología. 
También aquí se suele hacer lo contrario, 
narrando todo lo ocurrido sin decir la conclu- 
sión hasta el final. Es una técnica que puede 
dejarse para los folletines 

m Repetir. Aumenta la memorización. Para evi- 
tar la creación de una reacción negativa 
(«pero esto ya lo he leído...») debe repetirse 
de otra manera que la utilizada anteriormen- 
te. Las formas de repetición más útiles son el 
caso indicado como situación de referencia, 
que lo repite todo en forma práctica tomada 
de la realidad, y el resumen final, que siem- 
pre es conveniente hacer para esquemalizar 
todo lo que se ha dicho anteriormente. 


¿Vamos a resumir también nosotros? 
El ordenador es un instrumento y, por tanto, un 
medio neutro, No le pidamos una ayuda psico- 
lógica como estamos acostumbrados a hacer 
en los diálogos con las personas, porque el diá- 
logo hombre-máquina tiene otra finalidad. Acep- 
temos, pues, la nueva realidad: menos comuni- 
caciones interpersonales como fuga de la an- 
gustia y más comunicación orientada al inter- 
cambio de informaciones. 

Enrico Cogno 


Villa/Marka 


A 


PERFORM 
THRU 


PARRAFO-1 
PARRAFO-3 


En el formato indicado, la PERFORM confía el 
control a la primera instrucción de PARRAFO-1 
(MOVE A TO B) y lo recupera rápidamente des- 
pués de la ejecución de la última instrucción de 
PARRAFO-3 (ADD 1 TO K.) 

Es interesante subrayar que el uso de este for- 
mato del verbo PERFORM presenta dos incon- 
venientes fundamentales que inducen a desa- 
consejar su empleo. 

El primer inconveniente viene dado por la posi- 
bilidad de incurrir en el error de escribir 


PARRAFO-1 
PARRAFO-4 


PERFORM 
THRU 


tratando de enviar a ejecución sólo las instruc- 
ciones comprendidas entre las palabras PA- 
RRAFO-1 y PARRAFO-4. 

En realidad, la instrucción escrita envía a ejecu- 
ción también todas las instrucciones de PARRA- 
FO-4, lo que conduce a resultados totalmente 
imprevisibles. Ahora bien, este obstáculo pue- 
de superarse con la experiencia. 

En cambio, el segundo inconveniente está liga- 
do a la mantenibilidad del programa y, por tan- 


gen h p- 


to, tiene un peso mayor que el primero. 
Efectivamente, supóngase que, para una actua- 
lización, debe modificarse el programa de la si- 
guiente manera: 


PARRAFO-1. 
MOVE A TO B 


ADD 1 TO K. 
PARRAFO-4., 


El ordenador personal Hewlett-Packard HP87. 


8 / 


MC microcomputer 
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Se ha creado el nuevo párrafo REENTRADA en- 
tre PARRAFO-3 y PARRAFO-4, cuya presencia 
está motivada por la necesidad de efectuar un 
control sobre la variable A. 
En este caso, la instrucción 


PERFORM  PARRAFO-1 
THRU PARRAFO-3 


restituye el control al programa principal apenas 
encuentra el párrafo REENTRADA, alterando el 
sentido del proceso. 

Por tanto es necesario corregir todas las instruc- 
ciones de llamada modificándolas así: 


PERFORM PARRAFO-1 THRU REENTRADA. 


La entidad de la corrección necesaria puede 
ser notable, y depende del número de modifica- 
ciones hechas y del volumen del programa. 
En conclusión, es desaconsejable estructurar el 
programa en SECTION que agotan completa- 
mente las funciones a las que van destinadas, y 
efectuar las llamadas siempre en la forma 


PERFORM nombre-de-sección. 


Si se desea adoptar la llamada de más procedi- 
mientos mediante la proposición THRU, puede 
recurrirse a la instrucción EXIT, 


La instrucción EXIT. La instrucción EXIT no tie- 
ne en realidad ningún efecto. 

Gracias a esta característica, es posible obviar 
en parte el segundo inconveniente indicado al 
hablar del verbo PERFORM. Es suficiente que el 
programa esté estructurado asi: 


PARRAFO-1. 
MOVE A TO B 


ADD 1 TO K 
PARRAFO-3-EX. 
EXIT 
PARRAFO-4. 


En este caso, la instrucción 


PERFORM  PARRAFO-1 
THRU PARRAFO-3-EX. 


envía a ejecución, como última instrucción, la 
EXIT que no tiene efecto, puesto que el control 
se restituye nuevamente a la parte que llama. 
De esta manera, un párrafo cualquiera insertado 
en el interior del procedimiento llamado se eje- 
cuta sin interrupciones. 


Ejecuciones iterativas del mismo procedi- 
miento. La instrucción PERFORM permite reali- 
zar el mismo procedimiento, o el mismo grupo 
de procedimientos (THRU), un número prefijado 
de veces utilizando la cláusula TIMES. 

El formato de la PERFORM completo de las 
cláusulas descritas hasta ahora se ha represen- 
tado en la página siguiente. 

Por ejemplo, supóngase que debe efectuarse la 
suma de los números enteros de 1 a 1000. 

El programa de cálculo puede tener la siguiente 
forma: 


PROCEDURE DIVISION, 
INICIO SECTION. 
PON A CERO. 
MOVE ZEROES TO NUMERO 
TOTAL. 
INCREMENTA-NUMERO. 
ADD 1 TO NUMERO. 
IF NUMERO GREATER 1000 
DISPLAY "ss TOTAL =' 
TOTAL 
"esta! 
UPON CONSOLE 
STOP RUN. 
ADD NUMERO TO TOTAL. 
GO TO INCREMENTA-NUMERO. 
* 


Con las siguientes instrucciones puede obtener- 
se el mismo resultado: 


PROCEDURE DIVISION. 
INICIO SECTION, 
PON A CERO. 
MOVE ZEROES TO NUMERO 
TOTAL. 
PERFORM SUMA 1000 TIMES. 
DISPLAY "xs TOTAL =" 
TOTAL 
ES 


UPON CONSOLE. 


tnombre-de-dato 


STOP RUN. 


* 
SUMA SECTION. 
SUMA-PARA. 
ADD 1 TO NUMERO. 
ADD NUMERO TO TOTAL, 
SUMA-EX. EXIT. 


La cláusula UNTIL. La posibilidad de conocer 
a priori el número de veces que debe ejecutarse 
un grupo de instrucciones es bastante rara, in- 
cluso si el ciclo de iteración utiliza un campo nu- 
mérico implantado por el programa, y no una 
constante fija como en el último ejemplo consi- 
derado. 

Lo más probable es que desee bloquearse la 
iteración en el momento en que se verifica un 
cierto suceso. 

Por ejemplo, queremos sumar los primeros nú- 
meros enteros hasta que su suma no sea mayor 
de 3425. 

Debe tenerse en cuenta que el valor de deten- 
ción de la iteración también puede estar conte- 
nido en un campo numérico definido en WOR- 
KING-STORAGE. 

El resultado deseado se obtiene con las siguien- 
tes instrucciones, que comprenden el uso de la 
cláusula UNTIL (hasta que): 


PROCEDURE DIVISION. 
INICIO SECTION 
PON A CERO. 
MOVE ZEROES TO NUMERO 
TOTAL 
NUMEROS-SUMADOS. 
PERFORM SUMA 
UNTIL 
TOTAL GREATER 3425. 
DISPLAY 'sesww* NUMEROS-SUMADOS =' 
NUMEROS-SUMADOS 
UPON CONSOLE. 


DISPLAY 'ssese TOTAL FINAL =" 
TOTAL 
UPON CONSOLE, 
STOP RUN. 
+ 
SUMA SECTION 
SUMA-PARRAFO. 
ADD 1 TO NUMERO 
NUMEROS-SUMADOS. 
ADD NUMERO TO TOTAL. 
SUMA-EX. EXIT. 


La cláusula VARYING... FROM... BY. Esta 
cláusula extiende las potencialidades de la an- 
terior, puesto que permite condicionar las ¡tera- 
ciones a la verificación de una condición (UN- 
TIL), pero está dotada de una mayor flexibilidad. 
Esta flexibilidad se debe a la posibilidad de va- 
riar (VARYING), durante la ejecución del proce- 
dimiento, el valor de un dato cualquiera 

Este valor se incrementa con cada iteración un 
determinado paso (BY), partiendo de un valor 
inicial deseado (FROM). 

El formato de la instrucción PERFORM que in- 
cluye también la cláusula examinada se ha re- 
presentado en la tabla de la pág. 1086. 

Una aplicación típica de este formato corres- 
ponde a la gestión de las tablas, sobre todo en 
las fases de carga y de búsqueda secuencial. 
De este aspecto se hablará ampliamente más 
adelante. 


La instrucción STOP. El formato de esta ins- 
trucción, ya conocida de los ejemplos presenta- 
dos es el siguiente: 

STOP RUN 


Sin embargo, existe un segundo formato que 
permite detener el proceso sólo temporalmente, 
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SEGUNDO FORMATO DE LA INSTRUCCION PERFORM 


PERFORM nombre-de-procedimiento-1 


[THRU nombre 
VARYING 


FROM 


enviando simultáneamente un mensaje a la con- 
sola del sistema. 

El final de la pausa lo decreta la respuesta del 
operador y el proceso se reemprende, en base 
a la respuesta facilitada, desde la primera ins- 
trucción que sigue a la STOP. 

La línea 


STOP 'ERROR DE CALCULO' 


le envía a la consola el mensaje ERROR DE 
CALCULO. 


Gestión de las tablas en el Cobol 


En el Cobol, una tabla está constituida por un 
conjunto de campos contiguos en la memoria 
destinados a contener informaciones homogé- 
neas. Las tablas constituyen uno de los instru- 
mentos más potentes de que dispone el Cobol 
para la gestión de los datos en la memoria. 
Efectivamente, si para pequeñas cantidades de 
datos (a gestionar directamente en la memoria), 
el recurso a esta técnica puede ser una elección 
del programador, es prácticamente imposible 
hacerlo cuando los datos a manipular son muy 
numerosos. 

Considérese el caso en que debe leerse un file 
de fichas en el que cada ficha indica la cantidad 
de artículos vendidos en un almacén. Al final de 
la lectura de todo el file debe imprimirse el total 
de las cantidades vendidas en el mes de enero 
solamente del artículo de código 1. 
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-de-procedimiento-2] 


nombre-de-dato-1 
constante-numérica-1 
nombre-de-dato-2 
constante-numérica-2 


nombre-de-dato-3 


condición 


Evidentemente, en este caso basta con un pro- 
grama muy sencillo, cuyo diagrama de flujo se 
ha representado en la página siguiente. 
Observando la figura puede verse cómo, des- 
pués de haberse asegurado de que la ticha leí- 
da se refiere al artículo de código 1 y a las ven- 
tas de enero, se calcula la suma de la cantidad 
vendida en el único totalizador definido: TOT- 
ENE-ART-1. El programa puece detallarse co- 
mo se ve en el listado de la pág. 1088. 

Para tener un esquema visible que será útil más 
adelante, imagínese una memoria reservada a 
los datos como una hoja, en el que el totalizador 
TOT-ENE-ART-1 ocupa la parte indicada en la 
figura de arriba de la pág. 1089. 
Consideremos ahora el caso en que se quiere 
calcular la suma de las cantidades vendidas, 
siempre del artículo de código 1, también para 
todos los demás meses del año. 

En este caso, el diagrama de flujo del programa 
se complica notablemente, incluso siendo toda- 
vía limitado el número de las informaciones a 
gestionar, como puede deducirse del examen 
de la figura de abajo de la pág. 1089. 

La traducción del diagrama de flujo en lenguaje 
Cobol da lugar al programa del listado de las 
págs. 1090 y 1091. 

La utilización de totalizadores separados, como 
se ha hecho ahora, es incómodo y poco elegan- 
te cuando el número de totalizadores se hace 
superior a 3 o 4 y, además, es imposible cuando 
este número suele ser del orden de centenares 
o de millares. 


LECTURA Y PROCESO DE UN FILE (1) 


ED 
-E-= 
y 


y 
EE 


FLUJO DE LOS DATOS 
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LECTURA Y PROCESO DE UN FILE (1) 


IDENTIFICATION NIVISTON. 

PROGRAM—-TU, TABLAS. 

REMARKS. ESTE PROGRAMA ES UN EJEMPLO 
DE INTROUUCCIOÓN AL USO TE LAS 
TABLAS. 

ENVIRONMENT DIVISION, 

CONFIGURATION SECTION. 

SOUYRCE+=COMPUTER: 11 

OBJECT-COMPUTER. ¿....01. 1.1... 

INPUT-QUTFUT SECTION, 

FILE-CONTROL . 


SELECT FICHAS ASSIGN TO CARDOREADER, 
E 


* 
DATA DIVISION. 
FILE SECTION. 


FDO FICHAS 
LABEL RECORN OMITTED, 
01 FICHA PIC X(BO). 
* 
pd 
* 
VORKING-STORAGE SECTION. 
01 FICHA-US. ; 
05 SERIE-ARTICULO “PIC 9, 
05 CONIGO-ARTICULO PIC Y, 
05 FECHA-VENTA., 
10 AÑO FIC 99, 
10 MES FIC 99. 
10 LIA FIC 99. 
05 CANTIDAD PIC 93). 
05 COSTO-UNITARIO PIC 2(3). 
05 FILLER FIC X(66) . 
k 
k 
01 TOT=ENE=ART=1 FIC 9(6) COMP VALUE O. 


*x 
* 
PROCEDURE DIVISION. 
INICIO, 
OPEN INPUT FICHAS, 
PRIMERA LECTURA. 
READ FICHA INTO FICHA-YS 


AT ENI 
DISPLAY 'xxx FILE FICHAS VACIO x*xx' 


UFON PRINTER 
GO TO FIN*FROCESO, 
CONTROL... 
IF CODIGO-ARTICULO NOT = 1 
G0 TO LEE-FICHAS. 
IF MES = 1 
AU CANTIDAD TO TOT-ENE-ART-1, 
* 
XK 
LEE FICHAS. 
READ FICHAS INTO FICHA-4uS 
AT END 
HISPLAY * TOTAL VENTAS ART. 1 ENERO = 
TOT-ENE-ART-1 
UFON FRINTER 
GO TO FIN-PROCESO. 
60 TO CONTROL. 
e 
Xx 
FIN-PROCESO, 
CLOSE FICHAS. 
STOP RUN. 
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Volviendo a considerar la memoria disponible 


ESQUEMA DE LA MEMORIA para los datos como una hoja, la parte ocupada 


CON UN SOLO TOTALIZADOR por los contadores reservados a las cantidades 
del artículo de código 1 vendidas cada mes 


puede esquematizarse como se indica en la fi- 
gura de arriba de la pág. 1092. 


Tablas de una dimensión 


Los problema indicados tienen una solución 
muy sencilla. Los totalizadores pueden decla- 
rarse al Compilador como formando parte de 
una tabla de 12 elementos, y es posible direc- 
cionar cada uno de ellos con un nombre genéri- 
co de elemento y con el número que identifica 
su posición en el ámbito de la tabla. 

Es decir, se crea una tabla de totales mensuales 


LECTURA Y PROCESO DE UN FILE (2) 


> [0 
ED 


1089 


LECTURA Y PROCESO DE UN FILE (2) 


WORK ING-STORAGE SECTION. 
01 FICHA-4WS. 


05 SERIE-ARTICUL.O PIC 9. 
05 CODIGO-ARTICULO PIC P, 
05 FECHA-VENTA. 
10 AÑO PIC 912). 
10 MES PIC 912), 
10 DIA PIC 912). 
05 CANTIDAN PIC 9(3), 
05 COSTO-UNITARIO PIC 9(3), 
05 FILLER PIC X(66). 
*x 
* 
hn TOTALIZADORES == === - - - 
x 
k 
* 
01 TOT-ENE-ART-1 PIC 9(6) COMP VALUE 0. 
01 TOT-FER-ART=1 PIC 9(6) COMP VALUE 0. 
01 TOT-MAR-ART-1 PIC 9(6) COMP VALUE O. 
01 TOT-ABR-=ART-1 PTC 9(6) COMP VALUE O. 
01 TOT-MAY-ART=1 PIC 9(6) COMP VALUE O. 
01 TOT-JUN-ART=1 PIC 9(6) COMP VALUE O. 
01 TOT-JUL=ART- 1 PIC 9(6) COMP VALUE O. 
01 TOT-AGO-ART-1 FIC 9(6) COMP VALUE O. 
01 TOT-SEP-ART-1 PIC 9(6) CUMP VALUE 0, 
01 TOT-(OCT-ART-1 PIC 9(6) COMP VALUE O. 
01 TOT-=NOV-ART--1 PIC 9(6) COMP VALUE O. 
01 TOT-1IC=ART-1 PIC 9(6) COMP VALUE 0. 
* 
* 
* 
PROCEDURE NTVISION. 
INICIO, 


OFEN INFUT FICHAS, 
PRIMERA LECTURA. 
READ FICHAS INTO FICHA-4S 
AT ENG 
OISFLAY xx FILE FICHAS VACIO re” 
UPON PRINTER 
GO TO FIN FKROCESO. 
CONTROL. 
FF CODIGO-ARTICULO = 1 
NEXT SENTENCE 
EL.SE 
G0 TO LEE-=FICHAS, 
60 TO SUMA-ENE 
SUMA-FER 
SUMA-MAR 
SUMA=ARK 
SUMA-MAY 
SUMA-= JUN 


SUMA-= JUL 
SUMA-AGO 
SUMA-SEF 
SUMA-D0CT 
SUMA-NOV 
SUMA-TTIC DEFENDING ON MES. 
* 
e 
* 
SUMA-ENE . 


ADD CANTIDAN TO TOT-ENE=ART-1. 
60 TO LEE-FICHAS. 

SUMA-FEE, 
AIM CANTIDAN TO TOT-FER=<ART-=1. 
GO TO LEE-FICHAS. 

SUMA-=HAKR , 
Ari CANTIDAD TO TOT-MAR-ART=1, 
GO TO LEE-FICHAS, 
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SUMA-ABR , 


ADO CANTIDAD TO TOT- ARR-ART-1., 


GO TO LEE-FICHAS. 
SUMA-MAY . 


ADO CANTIDAD TO TOT-MAY-ART-1, 


GO TO LEE-FICHAS. 
SUMA-— JUN . 


ALT CANTIDAD TO TOT-JUN-ART-1. 


GO TO LEE-FICHAS. 
SUMA" JUL. , 


ALO CANTINAN TO TOT- JUL-ART-1. 


GO TO LEE-FICHAS, 
SUMA-AGO . 


ADD CANTIDAD TO TOT-AGO-ART-1, 


GO TO LEE-FICHAS. 
SUMA-SEF, 


ALO CANTIDAD TO TOT-SEP-ART-1. 


60 TO LEE-FICHAS. 
SUMA-0CT. 


AUD CANTITIAR TO TOT-OCT-ART-=1, 


60 TO LEE-<FICHAS. 
SUMA-NOV, 


ATL CANTA TO TOT=NOV-ART"1. 


60 TO LEE-FICHAS. 
SUMA-TITC. 


AID CANTINAL TO TOT-DIC-ART-1. 


LEE-FICHAS. 


READ FICHA INTO FICHA-4S 


AT ENL 
DISPLAY 


IISPLAY 


IISFPLAY 


DISPLAY 


UISP1.AY 


DISPLAY 


IISFLAY 


DISPLAY 


MISFLAY 


IISFLAY 


DISPLAY 


DISPLAY 


“TOTAL VENTAS 
TOT-ENE-=ART-1 
UFON FRINTER 
“TOTAL VENTAS 
TOT-FEB-=ART-1 
UFON PRINTER 
"TOTAL VENTAS 
TOT-MAR-=ART-4 
UPON PRINTER 
"TOTAL VENTAS 
TOT ARK ART-1 
UPON FRINTER 
"TOTAL. VENTAS 
TOT-MAY-ART-1 
UFON PRINTER 
"TOTAL. VENTAS 
TOT-JUN=ART=-1 
UFON PRINTER 
"TOTAL VENTAS 
VTOT- JUL “ARKT-=1 
UFON PRINTER 
"TOTAL VENTAS 
TOT-AGO-ART-=1 
UPON PRINTER 
"TOTAL VENTAS 
TOT-SEF-ART-1 
UFON FRINTER 
"TOTAL VENTAS 
TOT-00T-ART-1 
UFON PRINTER 
"TOTAL VENTAS 
TOT-NOV-ART=1 
UFON PRINTER 
"TOTAL VENTAS 
TOT-DTC=ART<4 
UFON FRINTER 


G0 TO FIN-PROCESO, 


60 TO CONTROL. 

FIN-PROCESO. 
CLOSE FICHAS. 
STOF RUN. 


ART, 


ART,L 


ART,1 


ART.1 


ART. 1 


ART,A 


ART.,1 


ART. 1 


ENERO = ' 


FERRERO = 


MARZO 


H 


E 


ABRIL 


MAYO = 


JUNTO 


ñ 


JULIO .= ' 


AGUSTO => 


SEPTIEMERE 


OCTUERE = 


NOVIEMBRE 


DICTEMEBRE 


4 
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ESQUEMA DE LA MEMORIA 
CON 12 TOTALIZADORES SEPARADOS 


TOT-ENE-ART-1 TOT-FEB-ART-1 


TOT-DIC-ART-1 


REPRESENTACION DE LA TABLA TAB-TOT-MENSUALES 


Ha) 


Posiciones de los elementos en la tabla 


Elemento TOTAL-MENSUAL (1) 


DESCRIPCION DE UNA TABLA EN DATA DIVISION 


01 nombre-tabla 
05 nombre-elemento 


que contiene 12 elementos de nombre genérico 
TOTAL-MENSUAL, el contador del mes de 
ABRIL se direccionará como TOTAL-MENSUAL 
(4), es decir, como el campo TOTAL-MENSUAL 
que ocupa la cuarta posición en el ámbito de la 
tabla. 

Una tabla es un dato compuesto (o estructura- 
do), en el que los datos componentes, no nece- 
sariamente elementales, tienen todos el mismo 
nombre y pueden direccionarse sólo en base a 
su posición, La situación que se determina se 
ha esquematizado en la segunda figura de esta 
página. 

Naturalmente, el Compilador debe saber que un 
cierto dato compuesto constituye una tabla. Es- 
ta información la proporciona el programador en 
DATA DIVISION en el acto de la descripción del 
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PIC... USAGE... OCCURS N TIMES 


campo, según el formato representado en la últi- 
ma tabla de arriba. 

Con esta descripción, el Compilador puede re- 
servar un área de memoria de nombre 
«nombre-tabla» constituida por una secuencia 
de N elementos «nombre-elemento». La ocupa- 
ción de memoria es igual a la que se tendría si 
se definiesen separadamente N campos, pero 
utilizando la tabla TAB-TOT-MENSUALES en lu- 
gar de los doce contadores TOT-ENE-ART-1, 
TOT-FEB-ART-1, etc. El programa del ejemplo 
anterior resultará seguramente menos incómo- 
do de detallar y más fácil de leer gracias a la 
drástica reducción del número de instrucciones 
presentes (ver el listado de las págs. 1093 y 
1094). 

El ejemplo representado en el listado contiene 


LECTURA Y PROCESO DE UN FILE (3) 


WORK ING-STORAGE SECTION. 
01 FICHA-4S. 


03 SERIE-ARTICULO FIC 9, 
0% CODIGO-ARTICULO PEU: 
03% FECHA-VENTA. 
10 AÑO PTE AY 
10 MES PIE 262), 
10 ITA PIC. 962), 
03 CANTICAGU PTC ID), 
035 COSTO->UNITARIO PELIS 
03 FILLER FIC X(66) . 
IO E 


Xx TARLA TOTAL IZADORES CANTINANES MENSUALES ART, 1 e 


KA Xx xo 


01 TAR-TOT-MENSUALES. 


0% TOTAL “MENSUAL. PLE 906) LUMEF OCLCURS 12, 

RA TABLA VE LOS NOMBRES DE LOS MESES 10% 

é 

* 

01 MESES, 
039 FILLER PIC X(10) VALUE *ENERO A 
05 FILLER PIC XC10) VALUE "FERRERO 7 
0% FILLER PIC X(10) VALUE 'MARZO PAE 
03% FILLER FITO XCLO) VALUE *ARRIL. Le 
03 FILLER PTE XC10) VALUE 'MAYO ae 
035 FILLER PIC XCLO) VALUE * JUNTO MS 
0 FIOLER PIO XCLO) VALUE *JULIO sa 
09 FILLER PIC XCLO) VALUE *AGOSTO AE 
09 FILLER PIC X(10) VALUE '*SEPTIEMERE ”, 
0% FILLER PIC XCLO> VALUE “OCTUBRE », 
0 FILLER PIC XCLO) VALUE NOVIEMBRE, 
03 FILLER PTE XCLOS VALUE IICIEMBRE Ll, 

01 TABLA-MESES RENEFINES MESES, 
0% NOMERI MES PIC XCLO) DOCURS 12, 

* 

01 INTICE=MES PIO 92) COMF, 

* 


PROCEDURE MIVISTON. 
MAIN SECTION. 
INTCTO. 
MOVE LOW-VALUES TO TAE =-TOT-MENSUALES. 
OFEN INFUT FICHAS. 
PRIMERA-LECTURA. 
REA FICHAS INTO FICHA-=YUS 
AT ENp 
UISELAY Me FILE FICHAS VACTO *%! 
UFON PRINTER 


60 TO FIN-PROCESO. 
CONTROL . 
IF CODIGO- ARTICULO = 1- 
AD CANTIVAL TO TOTAL. «MENSUAL (MES), 
READ FICHAS INTO FICHA-4S 
AT END 
PERFORM DISFILAY=TOTALES 
60 TO FIN-PROCESO. 
60 TO CONTROL. 
FIN=PROCESO. 
CLOSE FICHAS. 
STOP RUN, 
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- SECCIONES 


DISPLAY-TOTALES SECTION. 
DISP-TOT, 
MOVE ZEROES TO INODICE-MES, 
GIRO-IITSFLAY., 
ADD 1 TO INDICE-MES. 
IF. INLTCE-MES + 12 
60 TO GIRO-DISPLAY-EX, 
DISPLAY ' TOTAL VENTAS ART. 1” 
NOMBERE-MES (CINIULCE-MES) 
IS 
TOTAL. MENSUAL 
UFON FRINTER. 
G0 TO GIRO-DISFLAY, 
GIRO 7 SFLAY-EX, EXIT. 
* 


CINDITCE-MES) 


algunas importantes nociones que es interesan 
te subrayar. 

Para evitar escribir, al final del proceso, 12 ins- 
trucciones DISPLAY con los mensajes 


TOTAL VENTAS ART. 1 MES = 
total-del-mes 


se ha empleado otra tabla en la que cada ele- 
mento contiene el nombre de uno de los doce 
meses del año. De esta manera, el mensaje a 
presentar en la impresora se convierte en para- 
métrico, y puede repetirse 12 veces indicando 
cada vez el nombre del mes y el total de las 
ventas correspondientes. 

La descripción de una tabla no puede contener 
la cláusula VALUE. Cuando es necesario me- 
morizar en los elementos de una tabla valores 
constantes y predefinidos se recurre a la técnica 
utilizada en el ejemplo, o sea: 


1/se define un campo compuesto de tantos 
subcampos como elementos de la tabla de- 
be haber (en este caso 12). 
También puede observarse que para los 
subcampos no es necesario utilizar nombres 
definidos por el programador; basta con 
usar el nombre reservado FILLER. 

2 /se describe un campo-tabla con cláusulas 
REDEFINES del campo anterior, y se define 
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el nombre de los elementos y su número en 
la tabla utilizando la cláusula OCCURS, 


De esta manera es posible direccionar con la 
técnica de las tablas un elemento genérico el 
cual, gracias a la cláusula REDEFINES, compar- 
te la parte de memoria del campo redefinido y, 
en consecuencia, asume su valor implantado. 
En la primera figura de la página siguiente se ha 
esquematizado la situación en la memoria co- 
rrespondiente al campo MESES y a la tabla 
TABLA-MESES que lo redefine. 

La sección DISPLAY-TOTALES, llamada al final 
de la lectura del file FICHAS mediante el verbo 
PERFORM, utiliza el campo INDICE-MES para 
posicionarse simultáneamente en los elemen- 
tos de la tabla TABLA-MESES y TAB-TOT- 
MENSUALES. 

El valor de INDICE-MES se incrementa en 1 has- 
ta 12, y para cada valor asumido por el Índice 
se toma el nombre del mes correspondiente 
(por ejemplo, 1 = ENERO) y el contenido de la 
cantidad totalizada en aquel mes, para compo- 
ner el mensaje deseado. 

La dinámica de la creación de los doce men- 
sajes se indica en la segunda fgura de la pági- 
na siguiente. : 

Una particular atención debe dedicarse a los ci- 
clos de lectura o escritura de los datos en la 
tabla. El Compilador no puede percatarse si un 


índice suma un valor superior o inferior al otor- 
gado para la exploración de la tabla. Por ejem- 
plo, si en el caso de la lectura de la tabla 
TABLA-MESES el índice se implantase errónea- 
mente al valor 13, y la situación en la memoria 
fuese la del esquema de la figura de arriba de la 
página siguiente, el mensaje compuesto sería 


TOTAL VENTAS ART. 1 ?<A47Y/8. = S78)(5 


En este caso, el error se ve fácilmente, pero en 
otros, la gestión errónea de un índice puede 
conducir a una total inexactitud de los resulta- 
dos o a la terminación anómala del programa. 


Se volverá más ampliamente sobre el tema 
cuando se hable de la carga de una tabla. Por el 
momento, el lector debe observar la sección 
DISPLAY-TOTALES del ejemplo. Su diagrama 
de flujo, visible en la figura de abajo de la pági- 
na siguiente, es extremadamente simple y, si se 
adopta como técnica general para la lectura de 
todos los datos de una tabla, permite evitar erro- 
res como los descritos antes. 


Tablas de dos dimensiones 

Volviendo a considerar el ejemplo presentado al 
principio, puede observarse que un programa 
que puede procesar el total de las ventas men- 


COMPOSICION DEL CAMPO DE IMPRESION 


2 TOTAL VENTAS ART, 1 


mm. Posición y valor de INDICE-MES 


TABLA-MES 


1 TOTAL VENTAS ART, 1 


ENERO = 007465 


FEBRERO = 000688 


TAB-TOT-MENSUALES 


Transferencia de datos para la composición del mensaje 
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PREVENCION DE UNA TABLA PARA VALORES NO PERMITIDOS DEL INDICE 


TABLA-MESES NOVIEMBRE CIEMBRE ESTARIA, 
TAB-TOT-MENSUALES TA 215872 


(11) (12) (13) 
N 4 4 


Campos adyacentes a las tablas, pero no pertenecientes 
a estas tablas 


== Posición del puntero con INDICE-MES = 13 


LOGICA DE LECTURA DE UNA TABLA 


mensaje 


1096 


suales de un solo artículo tiene una escasa utili- 
dad. Supongamos que a todos los artículos con 
código hasta 9 se les quiere transferir la gestión 
descrita para el artículo de código 1. 
Ampliando los conceptos indicados puede pen- 
sarse en gestionar la parte de memoria reserva- 
da a los totalizadores de las cantidades men- 
suales como se indica en la figura de abajo. 
Toda la «hoja de memoria» puede considerarse 
como una tabla en la que cada elemento es a su 
vez una tabla. Por ejemplo, para leer o modificar 
el totalizador del mes de enero del artículo de 
código 2, deberá posicionarse primero en la lí- 
nea número 2 con un. oportuno INDICE- 
ARTICULO, y después mediante INDICE-MES 
en la primera posición (ENERO = 1) de la tabla 
de los totalizadores mensuales. 

La situación es completamente análoga a la típi- 
ca de una «batalla naval», seguramente más fa- 
miliar. En este juego se comunica al adversario 
el propio tiro indicando los códigos de la línea y 
de la columna en cuyo cruce se espera encon- 
trar un buque enemigo. 

Antes de indicar el diagrama de flujo ce la nue- 
va versión del programa es oportuno detenerse 


en el modo de describir la «tabla de tablas» es- 
quematizada anteriormente. Como se prevé tra- 
tar sólo 9 artículos, a cada uno de ellos deberá 
corresponder un elemento de la tabla. Cada ele- 
mento debe definirse después como una tabla 
de 12 contadores en los que totalizar las canti- 
dades vendidas mensualmente del artículo al 
que se refiere la línea. 

En definitiva se tendrá una ocupación de memo- 
ria de 9 líneas x 12 columnas x 4 bytes = 432 
bytes. No obstante, recuérdese que un campo 
numérico de una longitud declarada de 5 a Y 
caracteres en USAGE COMP ocupa en realidad 
4 bytes. En el caso examinado, cada contador 
está definido como PIC 9(6) COMP y, por tanto, 
ocupa 4 bytes. 

En la tabla de totalizadores de los artículos TAB- * 
TOT-ART tendrá la siguiente descripción: 


01 TAB-TOT-ART. 


05 TOTALES-ARTICULO OCCURS-9. 
10 TAB-TOT-MENSUALES. 
15 TOTAL-MENSUAL PIC 9(6) 
COMP 
OCCURS 12. 


ESQUEMA DE LA TABLA DE DOS DIMENSIONES TAB-TOT-ART 


TABLA DE LOS TOTALES MENSUALES DEL ARTICULO CODIGO 1 


TABLA DE LOS TOTALES MENSUALES DEL ARTICULO 


TOTALES MENSUA 


DEL ARTICULO CODIGO 3 


A DE LOS TOTALES MENSUALES DEL ARTICULO CODIGO 9 
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Finsiel 


Empleo del lápiz óptico conectado a una caja registradora. 


El detalle de la nueva versión del programa se 
ha indicado en el listado de las págs. 1099 y 
1100. 

Aunque los totalizadores a tratar se han conver- 
tido en 9 x 12 = 108, con respecto a los 12 del 
ejemplo anterior, puede verse que el número de 
instrucciones en la MAIN SECTION ha quedado 
prácticamente sin alteración. 

Debe hacerse otra observación a propósito de 
las posibilidades que ofrecen las tablas de ser 
inicializadas en cada uno de sus elementos utili- 
zando una sola instrucción, cuando están cons- 
tituidas por campos homogéneos. 

La línea MOVE LOW-VALUES TO TAB-TOT- 
ART, refiriéndose al nivel más alto de la tabla 
(01), inicializa a LOW-VALUES todos los ele- 
mentos de nivel inferior. 

La función del procedimiento DISPLAY-TOTA- 
LES, llamado al final de la lectura de file FICHAS, 
es leer todo el contenido de la tabla de totaliza- 
dores, presentando los totales de las ventas de 
cada mes frente a cada artículo. 

La dinámica de la lectura puede deducirse del 
diagrama de flujo representado en la figura de 
la pág. 1101. 
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En dicha figura se presentan las instrucciones 
para la lectura «horizontal», o sea de los conta- 
dores mensuales correspondientes al mismo ar- 
tículo, y para las del posicionado «vertical», es 
decir, de línea. 

Por ejemplo, obsérvese que el posicionado en 
el totalizador de mayo correspondiente al artícu- 
lo de código 9 se efectúa llamando el elemento 


TOTAL-MENSUAL (9, 5) 


El modo correcto para referenciar un elemento 
de una tabla de tablas (o mejor dicho, de una ta- 
bla de dos dimensiones) es el siguiente 
nombre-elemento índice- 
columna) 


(índice-línea, b 


Obsérvese el blank (espacio) que debe haber 
entre la coma y el índice de columna. 

La impresión producida por el programa consi- 
derado se ha representado en el listado de la 
pág. 1102, en el que por brevedad sólo son visi- 
bles las representaciones correspondientes a 
los artículos de códigos 1, 2, 3 y 4. 


EMPLEO DE UNA TABLA DE DOS DIMENSIONES 


WORK ING=STORAGE SECTION. 
01 FICHA-4S. 


05 SERTE-=ARTICULO FIC 9. 
0% CONTGO ARTICULO EEC 
03 FECHA-VENTA. 
10 AÑO EIC 22) COMF. 
10 MES FIC 912) COMP. 
10 ITA PIC 92) COMP. 
03 CANTICALS PIC 93), 
0% COSTO-UNITARTO PIO 930 
035 FILLER FIC X(66) , 
E] ms TARLAS O 


Fx *ExRx*Y2>= 


HR TABLA TOTALIZANORES CANTIDAD MENSUAL FOR ARTICULO xx 


01 TAB-TOT-ART. 
03 TOTALES "ARTICULO DCCURS P. 
10 TAR *+TOT-MENSUALES. 


» 
k 


135 TOTAL “MENSUAL. PIC 96) COMP OCCURS 12, 


Ad TARLA DE LOS NOMERES UE LOS MESES xx 


e 

01 MESES, 
035 FILLER PIC XC(10) VALUE "ENERO 0 
03% FILLER FIC XL) VALUE FERRERO 2 
03 FILLER FYCO XC1LO)> VALUE '*MARZO A 
0% FILLER FLO XCLO) VALUE *ABRIL dE 
0% FILLER FTC XC1LO)> VALUE 'MAYO de 
03 FILLER PIC XCLO) VALUE *JUNTO bl 
03 FILLER PIC X(10) VALUE 'JULTO Y 
036 FILLER FICO X(10) VALUE “AGOSTO E 
05 FILLER PIC X(10) VALUE 'SEPTIEMBRE ', 
03 FILLER PIC XCLO) VALUE OCTUBRE 0% 
05 FILLER PIC XCLO) VALUE 'NOUTEMBERE —* 
05 FILLER PIE XCLO) VALUE 'ITICIEMBRE —*, 

01 TABLA-MESIES REDEFINES MESES, 
0% NOMERE MES PLC XCLO) OCCURS 12, 

* 

»* 

01 INDICE-ARTICUL.O PIC 9 COMP, 

01 INITCE=MES FIC 9(2) COMP 

ES 

» 


PROCETIURE NIVISTON. 
MAIN SECTION. 


INTCTIO, 


MOVE LOW-VALUES TO TAR=TOT=ART. 

OPEN INFUT FICHAS. 
FRIMERA=L.ECTURA. 

READ FICHAS INTO FICHA-WS 


SUMA. 


Ar ENG 

DISPLAY "oe FILE-<FICHAS VACIO *x ' 
UFON FRINTER 

G0 TO FIN- PROCESO, 


AU CANTIDAD TO TOTAL-«MENSUAL (CONIGO-ARTICULO, MES). 
REAIO FICHAS INTO FICHA-WS 


AT END 
PERFORM DISPLAY-TOTALES 
GO TO FIN-FROCESO. 


60 TO SUMA, 
FIN-PROCESO. 

CLOSE FICHAS. 

STOF KUN, 
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NN AY > FI dd, sá Va Pri Ls LA ill. E de 
ROSITA SECC TONES A 
GX SO. 2 MO - DA MET: ' CI, AOS. TIPA 
e 
MET > + GT E HE TO TN UE Y ra ur 11. 
DISPLAY-TOTALES SECTION, 
A E "MN 7 NES TNT 
MOVE ZEROFS TO INDICE-ARTICULO. 
— TLISFLAY-ARTICULO, Es ES y ME == ELA Gl 
AUD 1 TO INNICE-ARTICULO, 
AE ATAR ORD! 9 ES NETA 2 «MBA = 
60 TO TISPLAY-ARTICULO-EX. 
0 TSPLAY SPACES UPON PRINTER. ¿dd SA 277 —n 


DISPLAY *ARTICULO COD, ' 
SE A NECESARIO 


. 


UFON PRINTER, 


Co ISPLAY SFACES DEAN ht. 
LR A: sE 


MOVE ZEROES TO INUICE-MES 


— ESFLAY VENTAS. eS 
AUD 1 TO INMICE-MES. 
A a o A A 


60 TO UISELAY-ARTICULO. 
z WOBESPRANTOO. De > 
NOMERE-MES CININICE MES) 
al” Uva y p< 1 
TOTAL.-MENSUAL 
Es — UFON PRINTER. s 
G0 70 DISPLAY-VENTAS. 
O NNUISFLAY-ARTICULO “EX, EXIT. 


Tablas de tres dimensiones 


De todo lo visto hasta ahora sobre las tablas pue- 
de observarse que en la TABLA-MESES basta 
con un solo índice para referenciar completa- 
mente el elemento que contiene la descripción 
del mes. Y viceversa, para direccionar comple- 
tamente el totalizador de la cantidad vendida 
del artículo de código 2 en el mes de mayo, de- 
ben utilizarse dos índices, con los que se posi- 
ciona primeramente en la línea correspondiente 
al artículo (2) y en el ámbito de ésta sobre la 
columna del mes de mayo (5). 

En el primer caso (TABLA-MESES) se trata de 
tablas de una dimensión, mientras que en el se- 
gundo se ha definido de dos dimensiones. 

El Cobol permite la definición de tablas con 
un máximo de tres dimensiones. 

En el mismo ejemplo, supóngase que se quie- 
ren totalizar las cantidades vendidas mensual- 
mente de cada artículo (códigos de 1 a 9), que 
puede pertenecer a 9 series diferentes. 
Supóngase para más claridad que una ficha in- 
dica los valores 


SERIE = 2 
ARTÍCULO = 5 

MES = 12 
CANTIDAD = 007215 
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O 
TOTALES VENTAS MENSUALES oe ero > 


E A AA 7 
(INTICE-ARTICUL.O, INNTCE-MES) 


A 


LB IE 3 dl 


de e sr 


y otra los siguientes 


SERIE = 4 
ARTICULO = 5 

MES = 12 
CANTIDAD = 000036 


Aunque los valores de ARTICULO y MES son 
iguales, las cantidades deben totalizarse en dos 
contadores diferentes. Esta vez, el esquema de 
la memoria reservada a los totalizadores men- 
suales es el indicado en la figura de la pág. 
1103. La memoria puede imaginarse como una 
secuencia de «hojas» direccionadas por el nú- 
mero de SERIE. Cada una de estas hojas se tra- 
ta y direcciona después como ya se ha descrito 
en el ejemplo anterior, en el que cada línea co- 
rresponde a un artículo y cada campo de la lí- 
nea es el totalizador de las ventas mensuales. 
La descripción de la tabla en WORKING- 
STORAGE-SECTION es la siguiente: 


01 TAB-TOT-VENTAS. 


05 TOTALES-SERIE OCCURS 9. 
10 TOTALES-ARTICULO  OCCURS 9. 
15 TOTAL MENSUAL PIC 9(6) 
COMP 
OCCURS 12. 


DIAGRAMA DE FLUJO DEL PROCEDIMIENTO DISPLAY-TOTALES 


mm. Instrucciones para la lectura «vertical» 
ms Instrucciones para la lectura «horizontal» 


Puesta a O del Índice de línea 
INDICE-ARTICULO 


Incremento del índice de línea 


Control de la posición máxima «vertical» 
alcanzable 


Se presenta la cabecera 

ARTICULO COD N «+** TOTALES VENTAS 
MENSUALES +«* donde N es el código 
genérico tratado en aquel momento 


Puesta a 0 del índice de columna INDICE-MES 
para la lectura del contador mensual 


Incremento del Índice de columna 


Control de la posición máxima «horizontal» 
alcanzable 


Se presentan el nombre del mes y el total de 
las ventas del artículo tratado 
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EJEMPLO DE IMPRESION DE LOS DATOS DE UNA 
TABLA DE DOS DIMENSIONES 


ARTICULO COD, 1 * Xx *x TOTALES VENTAS MENSUALES x Xx * 


ENERO = 008974 
FERRERO = 004567 
MARZO = 006787 
ABRIL. := 006001 
MAYO = 0035364 
JUNTO = 001234 
JUL IO = 001234 
AGOSTO = 006374 
SEPTIEMBRE = 012564 
OCTUBRE = 010084 
NOVIEMBRE —= 011284 
DICIEMBRE := 010064 


ARTICULO COM, 2 * % % TOTALES VENTAS MENSUALES Xx * *x 


ENERO = 008974 
FERRERO = 004067 
MARZO = 006787 
AERTL. = 006002 
MAYO = 003364 
JUNTO = 002234 
JULIO = 002234 
AGOSTO = 006574 
SEFTIEMBRE = 022064 
OCTUERE = 0200€4 
NOVTEMERE  = 021284 
IICTEMERE == 020064 


ARTICULO COD, 3 xx TOTALES VENAS MENSUALES xx * 


ENERO = 008974 
FEBRERO 004567 
MARZO = 0067€7 
ALIRTL. 5 006001 
naro == 0053464 
JUNTO = 001334 
JULTO = 001334 
AGOSTO = 0063574 
SEPTIEMBRE = 013364 
OCTUBRE = 0100€4 
NOVIEMBRE —= 011384 
DICIEMBRE = 010064 


ARTICULO COM, 4 x* e *X TOTALES VENTAS MENSUALES * Xx *% 


ENERO = 008974 
FEBRERO = 004567 
MARZO = 006787 
ARRIL = 006004 
MAYO = 0035364 
JUNTO = 004034 
JUL. TO = 004234 
AGOSTO = 006374 
SEPTIEMBRE = 012564 

: = 010084 

RE = 011284 
IICIEMERE == 010064 
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ESQUEMA DE LA TABLA DE TRES DIMENSIONES TAB-TOT-VENTAS 


Carga de una tabla 


Observando la impresión visible en el listado de 
la página anterior, puede verse que la dicción 
'ARTICULO COD. 1' comporta, por parte del 
usuario, la ulterior consulta de un índice en el 
cual se ha indicado la descripción del artículo 
de código 1. 

Esta circunstancia, ya criticable en el caso de 
pocos artículos, es inaceptable cuando la canti- 
dad de datos es notable. 

Por tanto, es preciso que las consultas cel índi- 
ce con el fin de apurar la correspondencia entre 
los códigos y las descripciones del artículo las 
realice el mismo programa, lo que se pide des- 
pués de producir la siguiente cabecera: 


ARTICULO: descripción-artículo 


La correspondencia puede establecerse con 
una tabla en la que cada elemento contenga 


1 / el número de serie (1 carácter) 
2 / el código artículo (1 carácter) 
3 / la descripción del artículo (30 caracteres) 


Como es razonable pensar que deberán intro- 
ducirse nuevos artículos y variarse algunos pa- 
rámetros de los que ya están catalogados, es 
interesante que la carga de la tabla de descrip- 
ciones se realice desde el exterior en cada eje- 
cución del programa, por ejemplo con el em- 
pleo de un file de fichas. 

Si se adoptase la técnica ya vista para las tablas 
de los nombres de los meses, cada alteración 
del contenido de la tabla comportaría la correc- 
ción de la correspondiente descripción en 
WORKING-STORAGE-SECTION y la sucesiva 
recompilación del programa. 

Sin embargo, debe indicarse que, mientras que 
en aquel caso podía tenerse un direccionamien- 
to directo del contador que interesa gracias a 
los códigos de serie, artículo o mes, la carga de 
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una tabla impone una gestión del índice de tipo 
diferente. El índice o los índices de la tabla a 
cargar deben gestionarse y controlarse en cada 
paso para obtener un llenado sin discontinuida- 
des del espacio disponible. 

Un importante control al que debe someterse el 
índice es el necesario para evitar el «desfonda- 
do» de la taola. 

Todo esto resultará más claro con el examen del 
ejemplo que sigue. En la figura de abajo se pre- 
senta el diagrama de flujo de primer nivel del 
programa integrado con la carga de la tabla de 
las descripciones de los artículos. Cada bloque 
puede detallarse a su vez como se ilustra en las 
figuras de las págs. 1105, 1106 y 1107. 

Las fichas que contienen las descripciones de 
los artículos se suponen dispuestas en el interior 
del file en orden creciente de serie y artículo. 
Además se supone que hay las descripciones 
de los nueve artículos de todas las nueve series. 
Suponiendo que los artículos tratados ' sean 
prendas de vestir, el file de las fichas- 


descripción puede organizarse como sigue: 


11 CAMISAS HOMBRE 
12 CAMISAS MUJER 
13 CAMISAS NINO 


21 PANTALONES HOMBRE 
22 PANTALONES MUJER 
23 PANTALONES NINO 


91 ZAPATOS HOMBRE 
92 ZAPATOS MUJER 


99 ZAPATITOS BEBE 


PROGRAMA QUE UTILIZA LA CARGA Y LA GESTION 
DE UNA TABLA FLOW-CHART 
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FASE DE CARGA DE LA TABLA DE LAS DESCRIPCIONES 


En el diagrama de flujo representado en la pági- 
na siguiente puede verse que la técnica de lec- 
tura de la tabla todavía es la de antes, o sea: 


1 /se incrementa y controla el índice de nivel 
más elevado (INDICE-SERIE) 

2 / el valor de este índice no se altera hasta que 
no se han tratado todos los artículos (control 
por INDICE-ARTICULO mayor que 9) 


3 / para cada valor del índice de artículo se 
efectúa un bucle para leer y presentar el con- 
tenido de todos los totalizadores mensuales. 


Debe darse un particular relieve a la parte dedi- 
cada a la búsqueda en la tabla, efectuada para 
extraer la descripción de cada artículo (figura 
de la pág. 1107). Como se intenta presentar la 
descripción mercantil as todos los artículos, pa- 
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FASE DE LECTURA DE LAS FICHAS-DESCRIPCION 


Inicializa el índice 
Censos >) > de nivel más elevado 


Incrementa 
el índice de nivel 
más elevado 


Controla si 

se han procesado 

todas las series 

(o sea todos los artículos) 


Inicializa 
el índice de nivel 
menos elevado 


Incrementa 
el índice de nivel 
menos elevado 


Controla si se han 
procesado tados 
los artículos de una 
misma serie 


Prepara la 
clave de búsqueda 
en la tabla 


Busca en la tabla 

la descripción del artículo 
en base a la clave 

dada (ver diagrama 

de detalle) 


Bucle de lectura y presentación 
de los totalizadores mensuales 
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FASE DE BUSQUEDA DE LA DESCRIPCION DE UN ARTICULO 


y 


Inicializa 
INDIGE-DESCR 


Controla si se ha 
examinado tcda la tabla 


«Y 

y 

Y no 

Ny s 
ra cada uno de éstos se ha compuesto un cam- 
po auxiliar (clave de búsqueda) con los valores 
del número de serie y del código del artículo. 
Después, el campo clave se compara ¡lerativa- 
mente con los dos primeros caracteres de cada 
elemento de la tabla de las descripciones. 
El bucle se interrumpe cuando los dos campos 
comparados resultan 'guales; en este caso se 
toma la parte DESCRIPCION del elemento para 
componer la línea de cabecera. 
Es interesante prever el caso en que la igualdad 


descrita no se verifique nunca. Para ello se ha 
previsto la sustitución de la descripción del artí- 


— 


Compara la 

clave de búsqueda 
con el número 

de serie 


culo por su códigos identificadores (serie y nú- 
mero) acompañados de la señalización DES- 
CRIPCION NO HALLADA. 

El programa descrito se ha representado en las 
págs. 1108, 1109 y 1110. Se han omitido las 
descripciones de algunas partes, para las cua- 
les se remite al lector a los ejemplos anteriores. 


Los índices de las tablas 


Para direccionar un campo en una tabla se han 
utilizado hasta ahora campos definidos en 
WORKING-STORAGE SECTION, Piénsese por 
ejemplo en NOMBRE-MES y en INDICE-MES 
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PROGRAMA QUE UTILIZA LA CARGA Y LA GESTION 


DE UNA TABLA 
* 
x =2 
* 
DATA DIVISTON. 
FILE SECTION. 
Fn FICHAS-IESCR 
LABEL RECORO OMITTELN, 
1. FICHA-DESCR PIC X(80). 
Fh FICHAS 
LABEL RECORÓ OMITTED, 
01. FICHA FIC Xx(80)., 
x 
* 
WORKING-STORAGE SECTION. 
01. FICHA-DESCR-WS. 
5 SERTE=SK PEDIA, 
0%. CONIGO-SK FIRE: 
03. DESCRIPCION SK FIC x(30). 
0S FILLER PIO XA. 
* 
x 
01. FICHA-4US, 
056. SERIE-ARTICULO PICS. 
3 COOIGO-ARTICULO PTC, 
0595  FECHA-VENTA. 
10 AÑO PIC. 712). ¿COMP 
10 MES PIG-902) COMP, 
10 DIA PITO 92) COMP. 
05  CANTIGAD PIC9(3), 
05 COSTO-UNITARIO PIO. 
03 FIL!ER PIC X(66) , 
* , 
pS 
A e MAREAD O AA 
* 
x 
01 TAR TOTALES VENTAS. 
0%. TOTAL.ES-SERTE DCCURS 9, 


10 TOTALES-ARTICULO DCCURS 9, 
15% TOTAL MENSUAL. FIC 9(4) COMP OCCURS 12, 


e 

$ 

a TABLA DE LOS NOMERES DF LOS MESES det 

* 

* 

01. MESES, 
0%. FILLER PTC XC10) — VALUE '*FNERO La 
0% FILLER PIC X(10) VALUE *FERRERO E 
036. FILLER PIC XC10) VALUE *MARZO los 
03. FILLER PIC XC(10) VALUE *ARBRTL LE 
059 FILLER FIC X(010) — VALUE 'MAYa Mo 
0% FILLER FIC X(10) VALUE *JUMIO 2 
de RTRLER FIL X(10) VALUE *AULIA Mía 
03. FILLER PIC X(10) —- VALUE '*ABOSTO Ada 
03. FILLER FIC X(10) VALUE "SEPTIEMBRE", 
03. FILLER FIC X(10) — VALUE “OCTUBRE q 
0%. FILLER PIC XC10) VALUE 'NOVIEMBRE ', 
0%. FILLER FIC X(010) VALUE 'S0ICIEMBRE *, 

01. - TARLA-MESES —RKEDEFINES MESES. 
0%. NOMERE-4E5 PITO X(9)  UCCURS 12, 

3 

e 

k TABLA DE 1438 PESCRIPCIONES UE LOS ARTICULOS 

e 

* 


01 - TABLA-TESCR. 
03 NMESCR-ART OCCURS 100, 
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10 CLAVE-El EMENTO. 


15  SERTE-ELEM PIC, 
15  CODIGO-ELEM PIC 9. 
10 DESCRIPCIÓN PIC X(30). 
Xx 
x == INDICES === 
* 
* 
01 INDICE-ARTICULO PICO COME 
01 — INIICE-=SERIE PIC 9 COnr 
01 — INNICE-MES PIC 9(2) COMP 
01 — INICE-DESCR PIC 9(2) COMP 
01. LIMITE-14B-DESCR PIC 913) COMP 
e 
E 
* so = AUXILIARES == = 
* 
01 CLAVE. 
05 SERIF-CLAVE PIC 9. 
05 COMIGO-CLAVE PIC 9. 
* 
E 
* 
PROCEDURE DIVISION. 


MAIN SECTION. 
ARRE-FILE-DESCR. 
OPEN INPUT FICHAS-DESCR. 
PRIMERA-LECTURA-TESCR. 
READ FICHA-DESCR INTO FICHA-TIESCR-WS 
AT END 
DISPLAY 
UPON PRINTER 
CLOSE FICHAS-TIESCR 
G0 TO FIN FROCESO. 
GIRO-TDESCRIFCIONES 
Ani 4 TO INMICE-DESCR, 
IF INDICE-=TESCK > LIMITE-TAR-TESCR 
CLOSE FICHAS-TIESCR 
DISPLAY **X* TABLA DESCRIPCIONES 
UFON FRINTER 
DISPLAY 
UFON FRINTER 
GO TD FIN-PROCESO. 
MOVE FICHA-ESCR-US TO NESCR=ART 
READ FICHAS-ESCR INTO FICHA-DESCR-4YS 
AT END 
CLOSE FICHAS-DESCR 
NISPLAY 
INDICE-TIESCK 
UFON PRINTER 
GO TO CARGA-IIATOS. 
60 TO-GIRO-MESCRIFCIONES. 
CARGA-TIATOS , 
OPEN INPUT FICHAS. 
MOVE LOW-VALUES TO TAB-TOTALES-VENTAS, 
FRIMERA-LECTURA-IATOS. 
READ FICHAS INTO FICHA-4S 


AT END 
CLOSE FICHAS 
UISELAY e FILE FICHAS DATOS 


UPON PRINTER 
60 TO FIN-FROCESO. 
SUMA. 
MOVE SERTE: ARTICULO 
MOVE COMIGO-ARTICULO 10 INULCE-ARTICULO. 
MOVE MES TO INIICE-MES. 
AL CANTINAD TO TOTAL-MENSUAL. 
INOTCE-MES) , 
OTROS DATOS. 
READ FICHAS INI1O FICHA-4S 
AT ENnD 


TO INDICE-SERIE. 


xXx FILE DESCRIPCIONES 


"MAXIMO NUMERO UE SURIFPCIUNES PREVISTO = 


CINGICE-SERIE, 


VALUE 
VALUE 
VALUE 0. 
VALUE 
VALUE 


VACIO xx" 


INSUFICIENTE *x*” 


100” 


CINILCE-TESCR) . 


EX MESCRIFCOTONES CARGADAS += * 


VACIO *x' 


TNUICE-ARTICULO, 
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* 
e 
* 
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CLOSE FICHAS 
FERFORM MISFPLAY-TOTALES 
GO TO FEIN-=FPROCESO, 


GO TO SUMA. 


FIN-PROCESO. 
STOF RUN, 


* 
IISPLAY-10TALES SECTION, 
DISF-TOT. 
MOVE ZEROÉS TO INIICE-SERTIE, 
DISPLAY-SERTE. 
40 1 TO INIICE-SERIE. 
IF INNICE-SERIE > 9 
G0 TO DISP-TOT-EX, 
MOVE. ZEROES TO INDICE-ARTICULO. 
DISPLAY-ARTICULO. 
AU 1 TO INOTCE-ARTICULO, 
IF INDICE ARTICULO + 9 
60 TO IISPLAY-SERTE, 
MOVE ZEROES TO INDILCE-TESCR. 
MOVE TNÚUTCE SERTE TO SERTE-CLAVE. 
MOVE INTMULCE ARTICULO TO CONTGO=CLAVE. 
BUSCA-MESCRIFCION. 
AUD 1 TO TINOIICE-DESCR, 
TF INITCE-UESCR > LIMITE <TAR=DESCR 
DISPLAY *ARTICULO SERIE y 
INDICE "SERTE 
¿CODIGO pS 
INDUTZE-ARTICULO 
E E LFCOTON NO HALLADA 0 
1% Xx % TOFCALES VENTAS * 3 de? 
UFON FRINTER 
60 TO ESCRIGE “TOTALES. 
MOVE TNMILCE-SERTE TO SERIE-CLAVE, 
MOVE TNOTCE-*ARTICULO TO CO0T6GO-ELAVE., 
IF.” CLAVE NOT = CLAVE ELEMENTO (INDUCE -=DESCR 
60 TO RUSCA-TESCRIPCION. 
DISPLAY *ARTICULO +? 
VESCRIFCION CINDICE DESCR) 
1% e TOSALES VENTAS * * 1.” 
UFON PRINTER, . 
ESCRIRE “TOTALES, 
MOVE. ZEROES TO INDICE-=MES. 
DISPLAY VENTAS. 
AM 1 TO INULCE-MES. 
IF. INTMICE-4ES > 12 
60 TO DISPLAY ARTICULO, 
DISPLAY ” 
NOMERE=MES  CINUTCE=MES) 


TOTAL=MENSUAL, CINNIDE-SERTE,  TNIMUCE- ARTICULO, 
INDICE MES) 
UFON PRINTER. 
GT TO OTSPLAY-VENTAS, 
NISP-TOT-EX, EXIT. 


De este modo, el Compilador trata los campos 
indicados en base a sus características y no en 
base a la función de índice que el programador 
le reserva. Es decir, el programador podría utili- 
zar el campo INDICE-MES para cualquier ope- 
ración permitida por el Cobol sin tener ningún 
error de compilación, ya que la función de índi- 
ce asociada al campo no se ha declarado al 
Compilador. 

Los campos como INDICE-MES, INDICE-AR- 
TICULO, etc., descritos en WORKING-STO- 
RAGE SECTION y utilizados por el programador 
como índices, se llaman subindexados. 

El Cobol prevé la posibilidad de asociar a una 
tabla uno o más índices reconocidos como tales 
por el Compilador y gestionados por éste de 
manera específica: de hecho, un índice no re- 
quiere definiciones en WORKING-STORAGE. 
Su declaración al Compilador se hace durante 
la descripción de la tabla, a la que el índice que- 
da univocamente ligado. Considérese la 
TABLA-MESES del ejemplo anterior. Si se desea 
asociar a esta tabla un índice gestionado como 
tal por el Compilador, debe adoptarse la nota- 
ción indicada en el listado de abajo. 

El campo IND-MES, asociado unívocamente a 
la tabla mediante la cláusula INDEXED BY, sólo 
puede usarse para direccionar los campos de 
TABLA-MESES. Cada uno de estos campos, sin 
embargo, puede direccionarse, además de con 
IND-MES, con un subindexado cualquiera. En 
síntesis, cuando la TABLA-MESES se describa 
como arriba, las tres instrucciones siguientes 
son válidas 


MOVE NOMBRE-MES (3) TO 
MOVE NOMBRE-MES (IND-MES) TO 


MOVE NOMBRE-MES (INDICE-MES) TO ........ 


En la primera, el direccionado se obtiene con 
una constante (3), en la segunda con el índice 
de la tabla (IND-MES) y en la tercera con un su- 
bindexado (INDICE-MES). 

Obsérvese finalmente que a una misma tabla se 
pueden asociar más índices, aunque mante- 
niendo para cada uno las limitaciones descritas. 
Por ejemplo, podría escribirse 


01 TABLA-MESES 
05 NOMBRE-MES 


REDEFINES MESES. 
PIC X(10) OCCURS 12 
INDEXED BY 
IND-MES 
NUMERO-MES 
PUNTERO 


El verbo SET para la gestión de un índice. El 
índice asociado a una tabla mediante la cláusu- 
la INDEXED BY no necesita descripción en 
WORKING-STORAGE, puesto que el Compila- 
dor reserva para ello un registro interno propio 
de formato particular que puede gestionar auto- 
máticamente cuando se usan las instrucciones 
que se comentarán más adelante. 

Teniendo en cuenta las particularidades de este 
registro, el programador no puede intervenir en 
su contenido con las instrucciones Cabal usa- 
das por los subindexados (MOVE, ADD ...), sino 
que debe utilizar la instrucción SET. El verbo 
SET, según el formato usado, permite 


m situar el índice a un determinado valor 
m incrementar a voluntad en una cantidad el 
valor actual del índice 


DESCRIPCION DE UNA TABLA CON INDICE GESTIONADO POR EL COMPILADOR 


*01 MESES. 
05 FILLER PIC 
05 FILLER PIE 
DARIA FIC 
05. FILLER PIC 
035. FILLER PIC 
03. FILLER PIC 
0% FILLER PTC 
035 FIL LER PIC 
035  FILLER PTC 
OS  FILLER PIC 
0%  FILLER rre 
DS  FILLER PIE 

01 TABLA-MESES REUEFINES MESES. 
05. NOMBRE MES PIC 


X(10) VALUE “ENERO”, 
X(10) VALUE *FEBRERO', 
X(10) VALUE "MARZO". 
X(10) VALUE '*ABRIL'. 
X(10) VALUE "MAYO". 
X(10) VALUE * JUNTO”, 
X(10) VALUE '*JULTO!, 
X(10) VALUE *AGOSTO?, 
X(10) VALUE '"SEFTIEMBRE”, 
X(10) VALUE 'NMCTURRE. 
X(10) VALUE "NOVTEMBRE, 
X(10) VALUE 'DNICIEMERE, 
X(10)  OCCURS 12 


INDEXEN EY INTI-MES. 
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m decrementar en una determinada cantidad 
el valor actual del índice. 


Las tres funciones indicadas se liberan respecti- 
vamente de los formatos descritos en la tabla de 
abajo. Debe observarse que los valores permiti- 
dos por un índice están ligados a las dimensio- 
nes de la tabla. En el caso de la tabla TABLA- 
MESES, el índice IND-MES sólo puede asumir 
los valores de 1 a 12, tantos como cuantos son 
los elementos declarados por tabla; los valores 
no comprendidos en el intervalo indicado hacen 
imprevisible el contenido del índice. 

El verbo SET y los índices asociados pueden 
aparecer inútilmente redundantes para la ges- 
tión de una tabla, pero después se verán las ra- 
zones de su introducción. 


El verbo SEARCH para la búsqueda 
en las tablas 


Se vuelve de nuevo al ejemplo desarrollado has- 
ta ahora para el tratamiento de las tablas. Para 
poder identificar la descripción de un determina- 
do artículo se ha compuesto una clave de bús- 
queda con los números de serie y de articulo, 
La clave se compara sucesivamente con los 
dos primeros caracteres de todos los 100 ele- 
mentos de la tabla de las descripciones: si la 
clave de búsqueda es igual a la clave del ele- 
mento se tama la parte descripción y, en caso 
contrario, se incrementa el índice para una nue- 
va comparación. 

Este proceso se interrumpe al hallar el elemento, 
o bien cuando el indice supera el número de 
elementos que puede contener dicha tabla. 

En el caso del ejemplo podía haber 9 series de 
9 tipos de artículos cada una, o sea un maximo 


de 81 descripciones. Por tanto, es evidente que 
los pasos de comparación 82 al 100 son inútiles 
y representan un despilfarro en términos de 
tiempo de proceso. Por otra parte, se ha im- 
puesto cargar en la primera fase del proceso las 
descripciones de todos los artículos y series po- 
sibles. Si no se hubiese introducido esta imposi- 
ción, las descripciones a cargar habrían podido 
ser un número cualquiera menor que 81 y, por 
tanto, los pasos de comparación inútiles habrian 
sido aún más numerosos. 

Poder limitar la búsqueda a los elementos efecti- 
vamente cargados sin explorar toda la tabla es 
particularmente ventajoso en el caso de tablas 
muy grandes, sobre todo si están llenas sola- 
mente con un porcentaje relativamente bajo de 
su capacidad. 

Para poder efectuar la búsqueda de forma limi- 
tada sólo a los elementos cargados, basta con 
memorizar en la fase de carga el número de es- 
tos elementos en un oportuno campo auxiliar. 
En la siguiente fase de búsqueda, la tabla se 
considerará agotada cuando el índice haya su- 
perado el contenido del campo auxiliar. 

El párrafo GIRO-DESCRIPCIONES del ejemplo 
anterior, en el que se efectuaba la carga de las 
descripciones de los artículos del file de fichas 
FICHAS-DESCR, puede reescribirse así: 


GIRO-DESCRIPCIONES. 
ADD 1 TO INDICE-DESCH. 
IF INDICE-DESCR>LIMITE-TAB-DESCR. 
CLOSE FICHAS-DESCR 
DISPLAY 'TABLA DESCRIPCIONES 
INSUFICIENTE" 
UPON PRINTER 
GO TO FIN-PROCESO. 


FORMATOS DE LA INSTRUCCION SET 
constante 
SET nombre-índice TO. nombre-clato 
nombre-índice-1 


SET nombre-índice UP BY 


constante 
nombre-de-dato 


constante 
nombre-de-dato 


SET nombre-índice DOWN BY 
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MOVE FICHA-DESCR-WS 

TO DESCR-ART (INDICE-DESCR). 
READ FICHAS-DESCR INTO 

FICHA-DESCR-WS 

AT END. 

MOVE INDICE-DESCR 

TO CUENTA-ELEMENTOS 
GLOSE FICHAS-DESCR. 
GO TO CARGA-DATOS. 
GO TO GIRO-DESCRIPCIONES. 

CARGA-DATOS. 


Al final de la lectura del file FICHAS-DESCR, 
INDICE-DESCR, que contiene aún el número de 
posición del último elemento cargado, se salva 
en el campo auxiliar CUENTA-ELEMENTOS, 
que se supone descrito como 


01 CUENTA-ELEMENTOS — PIC 9(3) COMP. 


Con estas premisas, en la sección DISPLAY- 
TOTALES, el párrafo BUSCA-DESCRIPCION 
puede reescribirse como sigue: 


BUSCA-DESCRIPCION. 
ADD 1 TO INDICE-DESCR. 
IF INDICE-DESCR>CUENTA-ELEMENTOS 
DISPLAY 'ARTICULO SERIE' 
INDICE-SERIE 
'CODIGO' 
INDICE-ARTICULO 
+xx* DESCRIPCION 
NO HALLADA se 1 xs 
UPON PRINTER 
GO TO ESCRIBE-TOTALES. 


Puede observarse que la descripción se consi- 
dera «no hallada» en la tabla cuando se han 
explorado todos los elementos realmente pre- 
sentes, o bien cuando el índice ha superado el 
valor contenido en CUENTA-ELEMENTOS. 
Todo esto constituye una útil premisa al examen 
de la instrucción SEARCH y de las tablas de di- 
mensión variable. 


La instrucción SEARCH. La instrucción 
SEARCH (del inglés buscar) permite, en un pri- 
mer formato, efectuar una búsqueda secuencial 
del tipo examinado y emprender al menos dos 
tipos de acciones diferentes según que el resul- 
tado de la búsqueda sea positivo o negativo. 


De acuerdo con el carácter discursivo del len- 
guaje Cobol, la instrucción SEARCH puede tra- 
ducirse en una frase normal de tipo «humano». 
La búsqueda de las descripciones del artículo 
en la tabla TABLA-DESCR equivale al siguiente 
comando: «busca (SEARCH) el elemento de la 
tabla DESCR-ART, y cuando (WHEN) el campo 
CLAVE-ELEMENTO sea ¡igual a la CLAVE, escri- 
be la descripción del artículo. Si llegas al final 
de la tabla sin haber encontrado igualdad (AT 
END) indica DESCRIPCION NO HALLADA», 
Adoptando la instrucción SEARCH, el progra- 
mador debe 


1 / implantar el valor del índice correspondiente 
a la posición desde la que quiere empezar la 
búsqueda; normalmente se explora la tabla 
desde el primer elemento (SET índice TO 1) 

2 / especificar el tipo de acción que debe em- 
prenderse cuando se cumple la condición 
de búsqueda 

3 / especificar la acción a emprender en el caso 
en que el elemento buscado no esté en la 
tabla. 


En el gráfico de la página siguiente se ha repre- 
sentado el mecanismo usado por la SEARCH 
secuencial. 

Para evidenciar el empleo de la SEARCH se- 
cuencial pueden compararse (ver listados de 
las págs. 1114 y 1115) los dos formatos del pá- 
rrafo BUSCA-DESCRIPCION cuando se adopta 
la siguiente definición para TABLA-DESCRH: 


01 TABLA-DESCR. 
05 DESCR-ART  OCCURS 100 
INDEXED BY IND-DES. 


10 CLAVE-ELEMENTO. 


15 SERIE-ELEM PIC 9. 
15 CODIGO-ELEM PIC 9. 
10 DESCRIPCION PIC X(30). 


En la versión del párrafo en que la búsqueda la 
gestiona el programador con el indexado 
INDICE-DESCR, se utiliza el límite máximo de 
las dimensiones de la tabla y no el límite de re- 
llenado (CUENTA-ELEMENTOS). Efectivamen- 
te, sólo en este caso, las dos versiones del pá- 
rrafo resultan completamente equivalentes des- 
de el punto de vista funcional. 

El formato general de la instrucción SEARCH 
para la búsqueda del tipo secuencial se ha re- 
presentado en la tabla de la pág, 1115. 
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ESQUEMA DE EJECUCION DE UNA INSTRUCCION SEARCH 
DE TIPO SECUENCIAL 


ly no 


sm.» Operaciones de competencia 
del programador 


Operaciones gestionadas 
automáticamente por la instrucción 


=..w Operaciones omisibles 


BUSQUEDA EN TABLA MEDIANTE USO DE SUBINDEXADO 


x 


Ai CL AVE :y3 


ESCRIBE-“TOTALES. 
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BUSQUEDA EN TABLA MEDIANTE SEARCH SECUENCIAL 


Nombre-elemento es el nombre genérico del 
elemento de la tabla en que debe hacerse la 
búsqueda. Cuando no se especifica la cláusula 
AT END, si la condición del elemento hallado no 
se verifica nunca, el control pasa a la primera 
instrucción que sigue al punto de cierre de la 
SEARCH. 


Uso de la SEARCH secuencial. El problema 
de no continuar la exploración de la tabla más 
allá del límite del llenado real de la misma, ya 
indicado en la búsqueda mediante indexados, 
puede resolverse de varias maneras adoptando 
la SEARCH, 

Un primer método es el que puede verse en la 
figura de la página siguiente. 

Se implantan HIGH-VALUE en todos los ele- 


mentos de la tabla y después se cargan los ele- 
mentos reales. La condición de fin de búsqueda 
se producirá si la tabla se termina o si el último 
elemento examinado es igual a HIGH VALUE. 
Los pasos a efectuar en el ámbito del programa 
para limitar la búsqueda sólo a los elementos 
realmente presentes en la tabla pueden sinteti- 
zarse como se indica en dicha figura. 

Un segundo método para minimizar los tiempos 
de búsqueda secuencial aprovecha las posibili- 
dades previstas por el Cobol para declarar al 
Compilador el número de los elementos sobre 
los que efectuar la búsqueda. 

Este segundo método requiere la definición de 
la tabla interesada como tabla de dimensiones 
variables, en la que el número de elementos 
constituyentes es específico del valor de un 


1115 


ESQUEMA DE LA TABLA EN MEMORIA 
DURANTE LA CARGA 


faz] Valores imprevisibles 
HIGH-VALUES 
EA Elemento cargado 


Antes de la operación Operación Después de la operación 


MOVE HIGH-VALUE 
TO TABLA 


Carga de los 
elementos 


PROCEDURE DIVISION: 4 
O E A A A kE 


A 
PERFORM CARGA-TARLA. 


TOO a 9 AS ARAU TA A, —_ AAA A 


A A A A 
PROCESA. 
ri A YE. e IAE TEGO 2 tt 


PT O, AA RA REA O A 
BUSCA-El EMENTO, 
AIESEC NEMENTO AAA 
AT ENO 
». EII IRERRO RM ANOS AAA 
WHEN: ELEMENTO CINOTOR) << HITGH-UALUES 
OS RERFORM ANO SMALL ATIO ) EA . 
WHEN CLAVE= ELEMENTO (INBICE) < CLAVE -BUSQUETIA 
o S PERFORM PROCESA-ELEMENTO. 
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DESCRIPCION EN WORKING-STORAGE SECTION DE UNA TABLA DE 
DIMENSION VARIABLE 


01. DIMENSTORN 
* 


01 TABLA, 
0%. ELEMENTO 


MOVE 2 TO DIMENSION 


campo numérico definido por el programador. 
La descripción de este tipo de tabla requiere los 
siguientes parámetros. 


m el número mínimo de elementos que la tabla 
puede contener 

m el número máximo de elementos que la tabla 
puede contener 

" el nombre del campo numérico cuyo valor 
establece las dimensiones reales de la tabla. 


La descripción de una tabla de dimensiones va- 
riables debe atenerse al siguiente formato: 


01 TABLA. 
05 ELEMENTO OCCURS mínimo 


TO máximo TIMES 
DEPENDING ON 
nombre-de-campo. 


debe ser una constante 


mayor que O, sin signo y 
menor que «máximo» 


«mínimo» 


PIC 9 COMP. 


PIC XCLO) 

OCCURS 1 TO $ 
DEPENDING 0N DIMENSION 
INDEXEN EY INI-TAR. 


Representación esquemática 
del espacio físico reservado 
a la tabla 


Limitación a 2 elementos de la 
dimensiór de la tabla 


Esquema del espacio físico 
reservado a la tabla y de la parte 
(establecica por DIMENSION = 2) 
sobre la que actúan las 
instrucciones 

(por ejemplo, SEARCH) 


«nombre-de-campo»es el nombre de un cam- 
po numérico que puede 
asumir sólo valores com- 
prendidos entre «mínimo» 
y «máximo». 

Es interesante aclarar que la dicción «tabla de 
dimensiones variables» no debe interpretarse 
como posibilidad de expandir dinámicamente el 
espacio ocupado en la memoria durante la car- 
ga, ya que el Compilador reserva una parte de 
memoria suficiente para contener la tabla di- 
mensionada al máximo. 
La variabilidad de las dimensiones de la tabla 
en función del contenido de «nombre-de-dato» 
es puramente lógica, en el sentido de que una 
instrucción cualquiera que trate la tabla en un 
determinado momento sólo ve la parte declara- 
da del valor nombre-de-dato. 

La situación se ha esquematizado en el ejemplo 

de arriba. 

Volviendo ahora a considerar el programa del 

ejemplo, puede intuirse fácilmente que el méto- 

do más rápido para buscar secuencialmente la 
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BUSQUEDA SECUENCIAL EN UNA TABLA 


WORKING=STORACE SECTION. 


01. CUENTA-ELEMENTOS PIC 9(3) COMP VALUE O, 
01. TARLA-IESCK. 
0% DESCR-ART OCCURS 1 TO 100 
TEPENDING ON CUENTA-ELEMENTOS 
INUEXED BY INI-TES., 


10 CLAVE-ELEMENTO, 

135 —SERIE-ELEN PIC Y, 

15 CONIGO-ELEM FICS 
10 DESCRIFCLION FIC x(30), 
01 INILCE-IESCR F1O-9(3) COME VALUE 0, 
01. - LIMITE: TAB-DESCR FICO 903) COMP VALUE 100. 
01 CLAVE, 

03. SERITE-=(CLAVE E 

0% CONTIGO CLAVE 1 


* 
x 
* 
PROCEDURE JUVISTON, 


CARGA-TDESCRIFCIONES. 
AUD 1 TO INDICE-IESCR. 
TE INDICE MESCOR += LIMITE-TAB-DESCR 
CLOSE FICHAS-IESCR 
MISPLAY *TABLA DESCRIPCIONES INSUFICIENTE ' 
UFON PRINTER 
GO TO FIN PROCESO, 
MOVE FICHA: MESCR-=US TO UESCRART CINUICE-UESCRO. 
READ FICHAS-GESCR TINTO FICHA-LDESCR"WS 
AT ENI 
MOVE INDICL-TESCR TO CUENTA" ELEMENTOS. 
C1.0SÉ FICHAS-DESCR 
GO TO CARGA-HATOS, 
60 TO CARGA UESCRIFCTIONES. 


CARGA-TIATOS . 


WAI ANA IRA IIA 


* 
E 
* 
RUSCA-D2SCORIFCOTON. 
SET INU-TIZS TO 1. 
MOVE INUICE SERLE TO SERTS=CLAVE, 
MOVE TINUICE-ARTICULO TO COLTSGO-<CLAVE, 
SEARCH UESCRK-ART 
AT ENT 
GISFLAY '*ARTICULI SERTE > 
TNOICE-SERTE 
tACUDTEO 1 
INDICE-<ARTICUL.O 
mer DESCORIPOLON NO HALLADA aer! 


UEFON PRINTER 
WHEN 
CLAVE-ELEMENTO CINI=MES) = CLAVE 
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DISPLAY CARTEL 


ESCRIRE TOTALES, 


EN O AA 


A E 
TESCRIFPOION CIND-JIES) 
ex TOTAL VENTAS HL IAS 
UFON PRINTER, 
o A A ch 
- mm E 
A e Rin 
O Ls EE a a Y 


descripción de un artículo es el indicado en 
el listado de la página anterior y de arriba, en el 
que se han omitido las partes no interesadas di- 
rectamente en la aplicación. 


La instrucción SEARCH ALL (búsqueda bina- 
ria). De todo lo ilustrado hasta ahora sobre la 
búsqueda en las tablas puede observarse que 
el uso de la SEARCH de tipo secuencial com- 
porta ventajas relativamente modestas con res- 
pecto a una búsqueda mediante indexados 
gestionada por el programador. Ahora veremos 
un formato diferente de la instrucción SEARCH, 
mucho más rápido que el anterior. 

Para la aplicación de la instrucción SEARCH 
ALL se presupone el ordenado ascendente o 
descendente de los elementos de la tabla con 
respecto a un campo clave declarado. 

Para aclarar el concepto se volverá a la tabla de 
las descripciones de los artículos. Las especifi- 
caciones del programa preveían que los files de 
fichas de las descripciones (FICHAS-DESCR) 
estuviesen en orden creciente de serie y artícu- 
lo, como se indica a continuación: 


Clave de comparación 


Serie Artículo Descripción 
141 CAMISAS HOMBRE 

12 CAMISAS MUJER 

13. CAMISAS NIÑO 

21 PANTALONES HOMBRE 
22 PANTALONES MUJER 

23 PANTALONES NIÑO 

91 ZAPATOS HOMBRE 
92 ZAPATOS MUJER 

99 ZAPATITOS BEBE 


Así, después de la carga, la tabla TABLA- 
DESCR respetará el ordenado indicado. 

Al realizar una búsqueda de tipo secuencial, por 
ejemplo del artículo que tiene serie 2 y código 
artículo 3, o sea una clave compuesta 23, la cla- | 
ve de búsqueda CLAVE se compara primero 
con la clave del primer elemento (11), después 
con la del segundo (12) y así sucesivamente 
hasta el duodécimo elemento, cuya clave es 23. 
Con esta técnica, el número de accesos a efec- 
tuar en la tabla para verificar la existencia de un 
elemento es en promedio igual a N/2, donde N 
es el número de elementos sobre los que se ha- 
ce la búsqueda. 

Es claro que el número de accesos realizados 
en la tabla dependerá de la posición efectiva 
del elemento buscado, en el sentido de que la 
instrucción accederá, por ejemplo, una sola vez 
si el elemento deseado está en la primera posi- 
ción, mientras que el acceso deberá repetirse N 
veces si el elemento buscado está en la última 
posición de la tabla. 

La lógica de búsqueda de la SEARCH ALL es 
análoga a la utilizada en el juego del «alto y 
bajo». El jugador N.1 debe adivinar un número 
comprendido entre 1 y 100 escrito por el juga- 
dor N.2 en una hoja de papel. 

El jugador N.1 puede hacer intentos a los que el 
jugador N.2 sólo puede responder con frases 
«demasiado grande» o «demasiado pequeño», 
dando así indicaciones de posición. 

En la tabla de la página siguiente se ha repre 
sentado el proceso del juego, suponiendo que 
el número a adivinar es 47. 

En la figura de la pág. 1121 se ha esquematiza- 
do la situación correspondiente a los diversos 
intentos efectuados. 

Como puede observarse, mientras que una 
búsqueda secuencial habría comportado 47 in- 
tentos antes de obtener el resultado, la búsque- 
da binaria sólo ha necesitado 5 accesos. Este 
tipo de búsqueda, llamada también búsqueda 


1119 


Comentario 


El jugador N. 1 trata de 
saber rápidamente en 
qué mitad de la serie de 1 
a 100 está el número, 
efectuando el primer in- 
tento con el número cen- 
tral. 

La respuesta (Alto) indica 
que el número se en- 
cuentra entre los  pri- 
meros 50, por lo que se 
dejarán los números 51 a 
100. Siguiendo el razona- 
miento que ha llevado a 
la primera conclusión, 
debe averiguarse en qué 
mitad de la serie de 1 a 
50 está el número. 
Ahora, el jugador N. 1 
sabe que el número está 
entre 25 y 50, por lo que 
divide de nuevo el interva- 
lo por la mitad. 

La última respuesta del ju- 
gador N. 2 indica que el 
número está entre 37 y 50, 
por lo que el jugador N. 1 
suma al número del último 
intento (37) la mitad del 
intervalo entre 37 y 50, o 
sea 7. 

El número debe estar entre 
44 y 50. El intento, efectua- 
do siempre con el mismo 
criterio, es el último, pues- 
to que da con el número 
exacto. 


01 nombre-tabla 


DESCRIPCION DE UNA TABLA A SOMETER A SEARCH ALL 


dicotómica (del griego corta por la mitad) es la 
adoptada por la SEARCH ALL. Por tanto, se in- 
tuye el motivo por el cual la tabla debe ordenar- 
se en sentido ascendente o descendente con 
respecto a la clave de búsqueda. 

En este punto debe precisarse que el ordenado 
de la tabla está completamente a cargo del pro- 
gramador, ya que el Compilador no emprende 
ninguna acción en este sentido: después de ca- 
da intento infructuoso, el Compilador debe sa- 
ber qué parte de la tabla queda excluida de los 
siguientes intentos. Esta precisión es obligada, 
ya que el formato con que debe describirse una 
tabla que debe someterse a SEARCH ALL po- 
dría inducir a engaño, 

Efectivamente, este formato prevé la declara- 
ción del tipo de ordenado aplicado por el pro- 
gramador a la tabla, y puede resumirse como 
se ha indicado en la tabla de abajo. 

La cláusula ASCENDING/DESCENDING KEY IS 
clave-de-búsqueda declara al Compilador el ti- 
po de ordenaco aplicado a la tabla y la parte del 
elemento que debe utilizarse como clave de 
búsqueda. Para fijar ideas se vuelve al ejemplo 
de la tabla TABLA-DESCR que contiene las des- 
cripciones de los artículos. 

Para aplicar en fase de búsqueda de las des- 
cripciones la cláusula SEARCH ALL, la defini- 
ción de la tabla y el párrafo BUSCA- 
DESCRIPCION pueden detallarse como se indi- 
ca en el listado de la pág. 1122. 

El formato de la instrucción SEARCH ALL se 
describe en la tabla de la página siguiente. 
Obsérvese que, contrariamente al caso de la 
SEARCH binaria, no se tiene necesidad de la 
implantación inicial del índice (SET índice TO...), 
ya que ésle está gestionado completamente por 
la propia instrucción. 

Además, la única comparación posible con la 
SEARCH ALL entre la clave de búsqueda y la 
del elemento en la tabla es por igualdad. 


05 nombre-elemento OCCURS mínimo TO máximo 
DEPENDING ON dimensión 


ASCENDING 
DESCENDING 


| KEY IS clave-de-búsqueda 


INDEXED BY nombre-índice 
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FORMATO DE LA INSTRUCCION SEARCH ALL 


SEARCH ALL nombre-elemento 
AT END 


NEXT-SENTENCE 


Í frase-imperativa-1 


expresión 


constante 
WHEN clave-de-búsqueda = nombre-de-campo 


NEXT-SENTENCE 


e SENTENCE | 


BUSQUEDA DICOTOMICA DEL NUMERO 47 EN EL INTERVALO 1 = 100 


50 


100 


1” intento 


2" intento 


3" intento 


37 44 50 


44 50 


5” intento 


47 


Esta limitación no existe para la SEARCH de tipo 
secuencial, en la que se admiten comparacio- 
nes por mayor y menor. 


Ordenado de una tabla 


En el uso del Cobol, el problema de la consulta 
de una tabla es muy frecuente. Los motivos por 
los que se recurre a la tabulación de una serie 
de datos y a su ulterior consulta pueden ser muy 
diversos, según las necesidades del programa. 
El tema desarrollado sobre la búsqueda en las 
tablas y sobre los instrumentos estándar del Co- 


Intervalo 
excluido 


Intervalo 
válido 


4 intento 


bol orientados a aquélla (SEARCH y SEARCH 
ALL) ha evidenciado las ventajas de la manipu- 
lación de datos mediante tablas. 

Dejando aparte los casos más sencillos de ta- 
blas de valores fijos, el análisis correspondiente 
a la utilización de una tabla, especialmente si es 
de grandes dimensiones, debe realizarse aten- 
tamente, y más si el calculador empleado no es 
particularmente rápido. 

La SEARCH ALL permite acelerar los procesos 
de búsqueda en las tablas reduciendo drástica- 
mente el número de accesos, pero requiere que 


1121 


BUSQUEDA DICOTOMICA EN UNA TABLA 


01. TARILA-DESCK, 
03. TESCRK- ART 


DECURS 1 


TO 100 


DEFENDING ON CUENTA-ELEMENTOS 
ASCENDING KEY 18 CLAVE -=ELEMENTO 


EY INIETES. 


Caer MESCRICOTON NO HALLADA o! 


= CLAVE 


"RA TOTALES VENTAS a 


INDEXED 
10 CLAVE-=ELEMENTO, 
Le SERIE-ENEN FICA, 
1% CONIGO<EL EA FTE 
10. TIESCRIFCION PIC X(30). 
* 
k 
*X 
* 
* 
RUSCA-IEBSCRIFCION. 
MOVE INDICE -"SERTE TO SERTE"CLAVE, 
MOVE INUICE=ARTICULO TO COMTSO=CLAVI, 
SEARCH ALL DESCR-ART 
AT END DISPLAY '*ARTICULO SERTE ' 
INDICE-SERTE 
CONTIGO > 
INDUYCE-ARTICUL.O 
UFON PRINTER 
WHEN CLAVE-ELEMENTO: CENJS-TES) 
IISPLAY "ARTICULO + ” 
WESCRIFCION CINT-1ES) 
VEON FRINTER, 
* 
e 


ESCRITRE=TOTALES. 


la tabla se haya ordenado previamente según 
una determinada clave. 

Si los datos a cargar en la tabla no están selec- 
cionados ya según un determinado orden, cre- 
ciente o decreciente, se plantea el problema de 
si conviene adoptar una búsqueda de tipo se- 
cuencial o de tipo binario. Si se desea utilizar 
este último es necesario prever una fase de or- 
denación de los datos, que puede realizarse de 
tres modos diferentes. 

El file de datos puede ordenarse según la clave 


deseada utilizando los adecuados programas, 


(Sort) de que están provistos la mayoría de cal- 
culadores. La operación de ordenado debe 
efectuarse antes de la ejecución del programa 
que ha de utilizar los datos en cuestión. 
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Para fijar ideas, se hará referencia al file de fi- 
chas FICHAS-DESCR del ejemplo, que contiene 
las descripciones de los artículos. 
Adoptando una selección exterior, el diagrama 
de flujo de los datos puede observarse en la pá- 
gina siguiente. 

Como alternativa puede ordenarse el file de da- 
tos según la clave considerada recurriendo a la 
selección (Sort) interna de los datos (si la tiene 
el Compilador). 

Este tipo de selección se describirá ampliamen- 
te en el capítulo siguiente, pero puede anticipar- 
se que, en el caso de que se adopte esta solu- 
ción, el flujo de los datos es el esquematizado 
en la figura de la pág. 1124. 

Como última solución puede ordenarse la tabla 


directamente en la memoria, inmediatamente 
después de su carga, mediante cualquier algo- 
ritmo gestionado por el programador. 

En este caso, el diagrama de flujo asume el as- 
pecto de la figura de la página 1125. 

Los tres métodos descritos presentan ventajas y 
desventajas en términos de tiempo empleado y 
de recursos de proceso requeridos (memoria 
central y memoria masiva). 
Independientemente del método elegido, es líci- 
to preguntarse: «¿Está justificado penal zar el 
programa con el tiempo empleado para selec- 
cionar los datos en el intento de usar la SEARCH 
ALL, o conviene adoptar una búsqueda más 


lenta sin estar obligados a ordenar los datos de 
entrada?» 

No existe una respuesta precisa a esta pregun- 
ta, puesto que la elección depende del tipo de 
proceso requerido. 

Es evidente que si en el cursode un programa 
pocas veces se tiene necesidad de consultar 
una tabla, aunque sea grande, pocas veces 
convendrá utilizar una búsqueda secuencial, 
evitando el oneroso ordenado de los records del 
file de entrada o de los elementos de la tabla. Y 
viceversa, si el proceso requiere el acceso a la 
tabla muy a menudo, por ejemplo para controlar 
la validez de todos los records leídos por un file 


BUSQUEDA DICOTOMICA PREVIO ORDENADO EXTERNO DE LOS DATOS 


Programa __ 


0 


1123 


BUSQUEDA DICOTOMICA PREVIA ORDENACION INTERNA DE LOS DATOS 


de entrada, la búsqueda secuencial resulta ex- 
tremadamente pesada y, por tanto, es oportuno 
recurrir a la SEARCH ALL. 

Si el calculador utilizado no dispone de un pro- 
grama para el ordenado de los datos (Sort), o si 
el Compilador Cobol instalado no tiene las fun- 
ciones de Sort interno, el único medio que le 
queda al programador para seleccionar los da- 
tos de la tabla es realizar él mismo el ordenado 
deseado. 


En el campo de los microordenadores y ordena- . 


dores personales, el tema de la ordenación de 
una tabla en la memoria es el más tratado, y 
para ello existen muchísimos algoritmos más o 
menos rápidos. 
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Programa 


1 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


Ordenado de los datos (Sort) 


Uno de los instrumentos más potentes de que 
dispone el Cobol es el Sort interno, o bien la po- 
sibilidad de seleccionar los records de un file 
secuencial en orden creciente o decreciente 
con respecto a unos determinados campos cla- 
ve. El ordenado puede producirse sobre varias 
claves y de manera diferente. 

Para aclarar esto, consideremos el caso de un 
file de fichas que tiene la siguiente descripción: 


01 SK. 
05 LOCALIDAD PIC X(20). 
05 CABEZA-PART PIC X(20). 


05 REGION PIC X(20). Queremos seleccionar las fichas para que 
05 NUM-HABIT PIC 9(8). 


05 SITUACION PIC X(5). = las regiones estén ordenadas de modo as- 
05 FILLER PIC X(8). cendente de nombre 
m todas las cabezas de partido de una misma 
En cada ficha hay indicados: provincia estén también ordenadas en se- 
1 / el nombre de la localidad cuencia ascendente 
2 / la cabeza de partido a la que pertenece m todas las localidades de una misma provin- 
3 / la región a la que pertenece cia estén ordenadas por número decrecien- 
4 / el número de habitantes de la localidad te de habitantes 
5 / la situación (Norte o Sur) en que se encuen- 
tra con respecto a Madrid. La compleja selección requerida puede obte- 


BUSQUEDA DICOTOMICA CON ORDENADO GESTIONADO 
POR EL PROGRAMADOR 


Programa 
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EJEMPLO DE ORDENADO Y SELECCION DE DATOS 


TOENTIFICACION DIVISION. 


ENVIRONMENT NIVISTON. 


FILE-CONTROL, 


SELECT FILE-DE-SORT ASSIGN TO DISC. 
SELECT FICHAS ASSTIGN TO CARIMREADER, 
SELECT FICHAS-OKD ASSIGN TO DTSC, 


DATA DIVISTON. 
FILE SECTION, 
FU FICHAS 
LABEL RECORAO OMITTED, 


01 SK PITO X(BO) 4 


FO FICHAS-ORT 
LABEL RECORTE STANDARD, 


01  S6K-0RD PIC X(B0), 


Sú- FILE“IF-=SORT. 
01 - S5K-SORT. 


0% LOCAL IDAL PIO X(20). 
05  CAREZA-FART PICXGO. 
0%. REGION PIC XRO), 
0% NUM-HARTT PIC 9), 
05 SITUACION PIC XI), 
05 FILLER PICO X(B) 

* 

Da 

*x 

FROCETURE -PIVISTION. 

SELECCIONA. 
SORT FILE-DE-SORT 
ON ASCENIUING KEY REGION 
CABEZA-FART 
ON DESCENTING KEY NUM=HARIT 
USING FICHAS 
GTVUING F1CHAS-0RP. 

» 

$ 

FIN, 


STOF RUN. 


nerse con una sola instrucción: 


SORT file-de-sort 
ON ASCENDING KEY REGION 
CABEZA-PART 
ON DESCENDING KEY NUM-HABIT 
USING file-a-seleccionar 
GIVING file-seleccionado. 


Del ejemplo indicado pueden extraerse algunas 
indicaciones: la función SORT tiene necesidad 
de conocer 
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— QUÉ file debe someterse a se ección (USING 
file-a-seleccionar) 

— en qué file debe depositar los datos selec- 
cionados (GIVING file-seleccionado) 

— en qué área de trabajo debe efectuar la se- 
lección (file-de-Sort) 

— según qué campos del record y en qué or- 
den debe efectuar la selección (ON ASCEN- 
DING KEY...) 


Para comprender mejor las posibilidades de la 
instrucción SORT, a continuación analizaremos 
las diversas entidades interesadas. 


File de Sort. Esta área puede asignarse tanto a 
DISC como a TAPE, utilizando la cláusula nor- 
mal SELECT en ENVIRONMENT DIVISION. 

Las particularidades más notables para la defi- 
nición del file de Sort corresponden a la DATA 
DIVISION, donde 


1 / debe utilizarse el indicador particular de nivel 
SD (Sort Definition) en lugar del conocido FD 

2/no debe utilizarse la cláusula LABEL RE- 
CORD, 


Hecha la salvedad de las dos excepciones indi- 
cadas, permanecen válidas todas las demás 
cláusulas vistas para la descripción de los files. 
La descripción a nivel SD del file de Sort no defi- 
ne un file físico, sino que permite al Compilador 
identificar los campos del record según cómo 
debe hacerse la selección: consigue que no 
sea necesario describir todos los campos del 
record a tratar si éstos no participan en la selec- 
ción. Por otra parte, es aconsejable describir só- 
lo los campos estrechamente interesados en el 
proceso de selección, que de este modo se ob- 
tienen procesados más ágiles. 


File a seleccionar. Es un file secuencial cual- 
quiera utilizado en INPUT, pero que no necesita 
apertura (OPEN) ni cierre (CLOSE) por parte 
del programador cuando se utiliza la cláusula 
USING. 


File seleccionado. También es un file secuen- 
Cial que subyace en las operaciones normales 
de definición de los fles. Está completamente 
gestionado por el Compilador en apertura y en 
cierre cuando se usa la cláusula GIVING. 


Orden de selección. Cada preposición ON en- 
contrada en la instrucción SORT especifica el 
tipo de ordenado que debe aplicarse a los cam- 
pos clave relacionados. 

La secuencia en que se disponen estas claves 
en el interior de la instrucción determina el nivel 
jerárquico de importancia de las propias claves, 
En el ejemplo indicado, la clave REGION resulta 
de mayor importancia que la clave CABEZA- 
PART, y análogamente, ésta es prioritaria con 


respecto a NUM-HABIT. 
El listado de este programa de selección de fi- 
chas se ha representado en la página anterior. 


La INPUT PROCEDURE 
y el verbo RELEASE 


En general, la función de Sort es muy onerosa 
en términos de proceso. Por tanto, es una bue- 
na norma seleccionar sólo los records indispen- 
sables en el proceso, descartando los demás. 

Para permitir que el programador pueda elegir 
los records a «incluir en el Sort» en base a con- 
diciones establecidas, el Cobol prevé una IN- 
PUT PROCEDURE alternativa a la cláusula 
USING. 

En esta SECTION, el record leído por el file de 
entrada se somete a procesos o controles antes 
de ser descartado o incluido en el Sort. 

Esta última operación consiste en escribir el re- 
cord en el file de Sort mediante una adecuada 
instrucción, cuyo formato se ha representado en 
la tabla de abajo. 

Como puede observarse, la instrucción es com- 
pletamente análoga a la WRITE. Para ilustrar la 
función introducida, supongamos que deben 
seleccionarse, según las especificaciones indi- 
cadas, sólo las fichas correspondientes a las lo- 
calidades con un número de habitantes superior 
a los 20.000. 

Omitiendo las partes comunes al ejemplo ante- 
rior, la nueva estructura del programa se ha indi- 
cado en el listado de la página siguiente. 


La OUTPUT PROCEDURE 
y el verbo RETURN 


En lugar de la cláusula GIVING, el Cobol permi- 
te declarar al Compilador el nombre de una 
SECTION (OUTPUT PROCEDURE), en la que el 
programador puede someter a cualquier tipo de 
proceso los records seleccionados y leídos di- 
rectamente por el file de Sort. 

Análogamente a lo que sucede con la INPUT 
PROCEDURE, el acceso al file de Sort no puede 
hacerse con el verbo READ, sino sólo con la 
adecuada instrucción RETURN, cuyo formato 
general se ha representado en la tabla de la pá- 
gina siguiente. 
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EJEMPLO DE USO DE LA INSTRUCCION RELEASE 


WORKING-STORAGE SECTION, 


01.  SK-US. 
05 LOCAL IDAD-4S PIC X(20). 
03 CARBEZA-FART-US FTC X(20). 
035  REGION-WS FIC X(20)., 
05 NUM-HARTT-=WS FIC 98). 
035 SITUACTON-4YS PICXOD 
DOTE FIC XD). 


* 
d 
* 
FROCEDIRE DIVISTON. 
SELECCIONA SECTION, 
INICIO, 
OPEN INPUT-FICHAS. 
SORT FILE TE SORT 
ON ASCENDUING KEY REGION 
CABEZA-=PART 
ON MESCENICING KEY NUM-HABIT 
INFUT PROCEMURE LIBERA 
GIVING FICHAS-OREO, 


FIN, 
STOF RUN. 
Y 
* 
e 
LIBERA SECTION. 
LEE-=FICHAS. 
READ FICHAS INTO SK-US 
AT END 
CLOSE FICHAS 
60 TO LTBRERA-EX, 
TF NUM-HARTT-4S5 GREATER THAN 20000 
RELEASE SK=SORT FROM Sk-4S. 
60 TQ LEE-FICHAS. 
LTBERA-EX. 


EXIT. 
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Siempre haciendo referencia al mismo ejemplo, 
supongamos que deben memorizarse en dos fi- 
les diferentes las localidades situadas, respecti- 
vamente, al Norte y al sur de Madrid. 

El detalle del programa se ha representado en 
el listado de las págs. 1130 y 1131. 


Gestión de los files de índices 


Todos los files que hemos considerado hasta 
ahora tienen una organización de tipo secuen- 
cial. Seguidamente nos ocuparemos de los files 
de organización en índices. A diferencia de los 
files secuenciales, en los que siempre deben 
leerse todos los records que preceden al de- 
seado, en el caso de los files de índice basta 
con indicar en el campo clave del record el valor 
buscado para obtener rápidamente dicho re- 
cord. La organización en índices de un file per- 
mite así acceder directamente a un record a tra- 
vés de una clave simbólica. 

Por ejemplo, supongamos que deben buscarse 
algunas informaciones relativas a un empleado 
del que se conoce la matrícula. 

Las informaciones relativas a todos los emplea- 


dos se nan registrado en un file ordenado por 
número de matrícula. Si el file tuviese una orga- 
nización secuencial, debería utilizarse el proce- 
dimiento ilustrado en el diagrama de flujo de la 
pág. 1131, o sea, deberían leerse todos los re- 
cords del file hasta encontrar el correspondiente 
a la marrícula a examinar. 

Como ya se ha indicado, sería necesario reali- 
zar como promedio un número de accesos igual 
a la mitad del número de records en el file. 

En cambio, si el file tiene una organización de 
índices, en la que la matrícula se ha definido 
como clave de acceso, basta con implantar en 
la clave la matrícula deseada y efectuar la lectu- 
ra: el record queda disponible rápidamente sin 
necesidad de efectuar bucles de lectura. 

El diagrama de flujo de la pág. 1132 ilustra el 
procedimiento. 

El tipo de búsqueda descrito es posible gracias 
a una estructura particular del file que, además 
de los records de datos, contiene una tabla (ta- 
bla de las direcciones) en la que se han memo- 
rizado todas las claves con la dirección del re- 
cord a que hace referencia cada clave. La es- 
tructura se ha representado esquemáticamente 


Un momento de la comprobación de una impresora. 
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EJEMPLO DE USO DE LA INSTRUCCION RETURN 


IDENTIFICATION DIVISION, 


ENVIRONMENT NMIVISION, 


FILE-CONTROL.. 
SELECT FILE-=DE-SORT  ASSIGN TO MISC. 


SELECT FICHAS ASSIGN TO CARI-REAINER. 
SELECT FICHAS—NORTE ASSIGN TO DISC, 
SELECT FICHAS-SUR ASSIGN TO MISC. 


DATÁ DIVISION. 
FILE SECTION. 
FO FICHAS 
LAREL RECORD OMITTED, 
01 SK FTC Xx(80), 
FO FICHAS-NORTE 
LABEL RECORN STANDARI, 
01. SK-NORTE PTC (80). 
FO FICHAS-SUR 
LAREL RECORO S7 ANDARÍ. 
01  SK-SUR FIC X(80) 
Sh. FILE-IIE-SORT. 
01  SK-SORT. 


05 LOCA! IDAD FIC XRO). 
03%. CAREZA"FART PIC X(20). 
05 REGION : PIC X(20). 
05. NUM-HARIT FIC 9(8). 
09 SITUACION PIC XD, 
05  FILLER FIC X(8) . 
* 
xk 
* 
WORKING-STORAGE SECTION. 
01. SK-US, 
05 LOCAL INAN-US PICO x(20). 
05 CABEZA-FART-WS FIC Xx(20). 
05  —REGION-WS PIC xA(20), 
05 NUM-HAKIT-=US FIC 9(8). 
03. SITUACION-YS PIC XCD. 
0% FILLER PIC X(B). 
* 
* 


* 
PROCETURE DIVISION. 
SELECCIONA SECTION. 
INICIO. 
OFEN INPUT FICHAS. 
SORT FILE-IE-SORT 
ON ASCENDING KEY REGION 
CAREZA-FART 
ON TESCENUTNG KEY NUM-HABIT 
INFUT — FROCEFNURE  LIREERA 
OUTPUT PROCEDURE SEPARA. 
FIN. 
STOP RUN 


SECCIONES 


* ok Xx*xx 


LIBERA SECTION, 
LEE-FICHAS. 
READ FICHAS INTO SK-YS 
AT ENL 
CLOSE FICHAS 
GO TO LIBERA-EX. 
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1F — NUM-HABIT-4S GREATER THAN 20000 
RELEASE SK-SORT FROM SK-4WS. 
GO TO LEE-FICHAS. 
LIBERA-EX. 
EXIT. 
* 
* 
* 
SEFARA SECTION. 
ABRE-FILES. 
OPEN OUTFUT FICHAS-NORTE 
FICHAS-SUR. 
LEE-SORT. 
RETURN FILE-TIE-SORT INTO SK-WS = 
AT END , 
CLOSE FICHAS-NORTE == 
CLOSE FICHAS-SUR . % 
GO TO SEFARA-EX. o + 
IF. SITUACION=US + 'NORTE” ] , 


URITE SK-NORTE FROM SK-WS. > . E TE 
IF. SITUACION-4S = 'SUR' € 
WRITE SK-SUR FROM SK-4S. UA 
GO TO LEE-SORT. . 
SEFARA-EX. 


EXIT, 


EJEMPLO DE BUSQUEDA EN UN FILE SECUENCIAL 
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EJEMPLO DE BUSQUEDA EN UN FILE DE INDICES 


en la tabla de arriba de la página siguiente. 
Cuando se pide la lectura de un record especifi- 
cando una clave, el programa efectúa una o 
más lecturas en la tabla de las direcciones has- 
ta encontrar la clave buscada y, a continuación, 
utilizando la dirección definida en la tabla, acce- 
de directamente al record. Por tanto, para leer 
un record no se hace una sola lectura, sino dos, 
independientemente de la posición del record. 
Esto resulta particularmente conveniente cuan- 
do es necesario efectuar la búsqueda casual en 
un file de dimensiones bastante grandes, 

Las modalidades según las que es posible ac 
ceder a un file de índices son tres: 


1 / casual (RANDOM) 
2 / secuencial (SEQUENTIAL) 
3 / mixta o dinámica (DYNAMIC) 
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Adoptando la modalidad de acceso SEQUEN- 
TIAL, el file queda somelido a las reglas, ya indi- 
cadas, válidas para el tratamiento de los files se- 
cuenciales: los records se procesan en secuen- 
cia física, procediendo del primero al último. 
Las particularidades del acceso RANDOM tam- 
bién se han explicado. 

La tercera modalidad de acceso (DYNAMIC) es 
una síntesis de las otras dos y permite un trata- 
miento mixto del file, en el sentido de que es 
posible adoptar la modalidad más oportuna a 
las necesidades del momento. Por ejemplo, es 
posible leer una serie de records secuencial- 
mente, leer otros en forma RANDOM, volver a 
usar el acceso SEQUENTIAL, y así sucesiva- 
mente. 

Gracias a las características descritas, un file de 
índices también se llama IS (INDEXED- 


ESQUEMA DE LA ESTRUCTURA DE UN FILE DE INDICES 


Tabla de las direcciones 


SEQUENTIAL) o secuencial de índices. A con- 
tinuación ilustraremos las cláusulas para la de- 
finición de un file IS en ENVIRONMENT DIVI- 
SION y en DATA DIVISION, así como las intruc- 
ciones de la PROCEDURE DIVISION, necesa- 
rlas para su gestión. 


Descripción de los files IS 

en ENVIRONMENT DIVISION 

Si se tiene la intención de utilizar en un progra- 
ma un file secuencial de índices (IS), a nivel SE- 
LECT, el file debe asignarse necesariamente a 
DISC y debe especificarse la cláusula 


ORGANIZATION IS INDEXED 


A ésta debe seguirla una segunda cláusula, ne- 
cesaria para la declaración de la modalidad de 
acceso, o sea 


SEQUENTIAL 
ACCESS MODE IS RANDOM | 
DYNAMIC 


Finalmente debe haber la cláusula 


RECORD KEY IS nombre-de-dato 


«Nombre-de-dato» es el nombre de un campo 
del record, definido en la File Description, que 
contiene la clave simbólica del propio record. 
Este campo puede ser elemental o de grupo, y 
generalmente no puede tener una longitud su- 
perior a 60 caracteres. 

El campo clave no puede contener un valor 
equ valente a LOW-VALUES, y debe implantar- 
se antes de cada operación de acceso casual. 


Record de datos 


Descripción de los files IS 
en DATA DIVISION 


En la File Description es necesario utlizar la * 
cláusula 


LABEL RECORD STANDARD 


según las normas definidas anteriormente para 
los files secuenciales asignados a DISC. 
En la descripción del record, siempre a nivel FD, 
es necesario definir el campo que contiene la 
clave del record con el nombre indicado en la 
cláusula RECORD KEY a nivel SELECT. 


Uso de las instrucciones en la 
PROCEDURE DIVISION 


Un file de índices puede abrirse en los tres mo- 
dos ya vistos para los files de acceso secuen- 
cial, con exclusión de la modalidad EXTEND. 
Por tanto, el formato de la instrucción de apertu- 
ra es el siguiente: 


El verbo READ. La instrucción de lectura pue- 
de utilizarse sólo si el file se ha abierto previa- 
mente en INPUT o en 1-0, y tiene dos formatos 
según la modalidad de acceso definida a nivel 
SELECT. Los dos formatos se han ilustrado en 
las dos tablas de arriba de la página siguiente. 
Más precisamente, valen estas reglas: 
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PRIMER FORMATO DE LA INSTRUCCION READ APLICADA A FILES IS 


READ nombre-de-file [NEXT] RECORD [INTO nombre-de-dato-1] 
AT END frase-imperativa. 


SEGUNDO FORMATO DE LA INSTRUCCION READ APLICADA A FILES IS 


READ nombre-de-file [INTO nombre-de dato-2] 
INVALID KEY frase-imperativa. 


1 / En todos los files para los cuales se ha defini- 
do el acceso secuencial (ACCESS MODE IS 
SEQUENTIAL) debe usarse el primer formato 
sin la cláusula NEXT, o sea 


READ nombre-de-file RECORD 
[INTO nombre-de-dato-1] 
AT END frase-imperativa. 


2 / En lecturas de tipo secuencial en files defini- 
dos con acceso mixto (ACCESS MODE IS 
DYNAMIC) debe emplearse el primer forma- 
to con la cláusual NEXT, o sea 


READ nombre-de-file NEXT RECORD 


[INTO nombre-de-dato-1] 
AT END frase-imperativa. 


3 / En todas las operaciones de lectura casual, 
cuando a nivel SELECT se ha declarado AC- 
CESS MODE IS RANDOM, o bien ACCESS 
MODE IS DYNAMIC, debe usarse el segun- 
do formato. 


4 / Antes de la operación de lectura, el campo 
de la RECORD KEY debe implantarse al valor 
correspondiente al del record que se está bus- 
cando. Si el record con la clave antes especi- 
ficada no existe, se ejecutarán las instrucciones 
de la «frase-imperativa» que sigue a la cláusula 
INVALID KEY. 


El verbo WRITE. Esta instrucción puede utilizar- 
se sólo en files previamente abiertos en OUT- 
PUT o 1-0, y tiene el formato indicado en la tabla 
al final de esta página. 

En el caso en que el file se abre en OUTPUT 
(fase de creación), los records deben escribirse 
en orden ascendente de claves. Es decir, se ac- 
cede al file de manera secuencial cualquiera 
que sea el ACCESS MODE especificado. 
Antes de efectuar cada escritura debe im- 
plantarse el campo del record que contiene la 
RECORD KEY. 

La frase imperativa especificada en la cláusula 
INVALID KEY solamente se ejecuta en los si- 
guientes casos: 


"m cuando los valores de las claves no están en 
orden ascendente de una WRITE a la si- 
guiente 

m  cuando el valor de la clave no es único en el 
ámbito del file 

m cuando se ha llenado lodo el espacio ubica- 
do en el disco. 


Instrucciones específicas para la gestión 
de los files IS 


Hay tres verbos que no tienen equivalentes en 

los files de tipo secuencial: 

REWRITE se usa para la actualización de re- 
cords existentes 


FORMATO DE LA INSTRUCCION WRITE APLICADA A FILES IS 


WRITE nombre-de-record [FROM nombre-de-dato] 
INVALID KEY frase-imperativa. 
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DELETE cancela los records ya presentes en 
el file 

permite posicionarse en un determi- 
nado record 


START 


El verbo REWRITE. La operación de reescritu- 
ra (REWRITE) sólo se permite en files abiertos 
en |-O y tiene el formato indicado en la primera 
tabla de abajo. 

El uso de la instrucción REWRITE está estrecha- 
mente vinculado al respeto de algunas reglas 
fundamentales: 


— la instrucción sólo puede ejecutarse si al mo- 
dificar el record no queda modificaca la cla- 
ve de acceso. 

Si esto sucediese, se ejecutaría la frase 
imperativa que se ha especificado en la 
cláusula INVALID KEY 

—en el caso de files definidos con ACCESS 
MODE SEQUENTIAL es necesario ejecutar 
con éxito una READ antes de la instrucción 
REWRITE 

— la frase imperativa especificada en la cláusu- 
la INVALID KEY sólo se ejecuta si el valor de 
la clave implantada en la RECORD KEY an- 
tes de la REWRITE es diferente del que hay 
en cualquier record memorizado en el file. O 
sea, no es posible efectuar la reescritura de 
un record que todavía no se ha creado. 


El verbo DELETE. La instrucción de cancela- 
ción (DELETE) tiene el formato representado en 
la segunda tabla de abajo. Análogamente a la 
instrucción de reescritura (REWRITE), la DELE- 
TE debe trabajar sobre records ya existentes. 
Las reglas que la rigen, por tanto, son similares 
a las descritas para la instrucción REWRITE: 


—el file tiene que haber sido abierto en |-O 

— si el file tiene ACCESS MODE SEQUENTIAL, 
deberá ejecutarse con éxito una READ antes 
de la DELETE 

— si el file se ha definido con acceso RANDOM 
O DYNAMIC, basta con implantar la RE- 
CORD KEY antes de efectuar la cancelación, 
sin tener que leer previamente el record que 
debe cancelarse 

— si a la clave implantada no corresponde nin- 
gún record, se ejecuta la frase imperativa es- 
pecificada en la cláusula INVALID KEY, 


Fase de comprobación de terminales vídeo. 


FORMATO DE LA INSTRUCCION REWRITE 


REWRITE nombre-de-record [FROM nombre-de-dato] 


INVALID KEY frase-imperativa. 


FORMATO DE LA INSTRUCCION DELETE 


DELETE nombre-de-file RECORD 
INVALID KEY frase-imperativa. 
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El verbo START. La instrucción START permite 
posicionarse sobre un determinado record del 
file, ya colocado, y leer los siguientes de forma 
secuencial. 

Por ejemplo, si hubiese que imprimir todos los 
records del file de los empleados definido ante- 
riormente, en el que la matrícula, o sea RE- 
CORD KEY, es superior a un cierto valor, es po- 
sible posicionarse en la primera matrícula válida 
mediante el verbo START y después pueden im- 
primirse todos los records que quedan leyéndo- 
los secuencialmente del file. En ésta y en la pá- 
gina siguiente se han representado para su 
comparación los diagramas de flujo de la opera- 
ción en el caso de que se recurra a la START oa 
otro método alternativo. 

Obsérvese que la instrucción START no deja 
disponible efectivamente el record, sino que só- 
lo hace un apuntado a la posición deseada. 
La instrucción START debe ir seguida de una 


READ nombre-de-file AT END... 
o de una 
READ nombre-de-file NEXT AT END... 


según si el file se ha declarado con acceso se- 
cuencial o dinámico respectivamente. La opera- 
ción de posicionado sólo puede hacerse sobre 
files abiertos en INPUT o en !-O, y cuando el 
acceso se haya definido como SEQUENTIAL o 
DINAMIC. 

El formato general de la instrucción se ha repre- 
sentado en la tabla de la págira siguiente. 

El “nombre-de-dato” debe ser el nombre de la 
RECORD KEY y debe implantarse al valor de- 
seado antes de la ejecución de la START. 

En el caso de que esté omitida la cláusula KEY, 
el Compilador supondrá que el record buscado 
tiene la clave igual a la implantada en la RE- 


POSICIONADO EN UN RECORD DEL FILE IS SIN START 
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A e EN 


POSICIONADO EN UN RECORD DEL FILE IS CON START 


AT END 
a mo 


INSTRUCCION 


INVALID KEY frase-imperativa 
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CORD KEY, Es decir, omitir la cláusula KEY 
equivale a especificarla en la forma KEY IS 
EQUAL TO. 

Si el record buscado no existe se ejecuta la fra- 
se especificada en la cláusula INVALID KEY. 
Cuando la cláusula KEY se especifica en la for- 
ma GREATER THAN o NOT LESS THAN, el sis- 
tema se posiciona en el primer record cuya cla- 
ve tiene un valor (respectivamente) mayor o no 
menor que el implantado en la RECORD KEY 
antes de la operación START. 

En estos casos, la frase imperativa de la cláusu- 
la INVALID KEY sólo se ejecuta si la clave im- 
plantada en la RECORD KEY es mayor que la 
clave más alta memorizada en el file. 


El verbo CLOSE. La operación de cierre de un 
file IS es perfectamente análoga, en el formato y 
en el uso, a la utilizada para los files de tipo se- 
cuencial, ya ilustrada: 


CLOSE nombre-de-file 


La tabla de abajo contiene una recopilación de 
las operaciones ejecutables en files de Índices. 
Para cada operación se ha indicado en qué 
condiciones de apertura o de acceso está per- 
mitido su uso. 

En cambio, en la tabla de la página siguiente se 


ha representado la lista de las causas de salida 
por INVALID KEY frente a la operación realizada 
y en función de las modalidades de apertura y 
de acceso utilizadas. 


Comunicación entre programas. 
Las subrutinas 


Un programa en formato ejecutable puede estar 
compuesto por un conjunto de subprogramas 
(subrutinas) unidos lógica y físicamente entre sí 
por un programa principal (main). 

La ventaja de este tipo de organización reside 
en que cada subprograma sencillo puede com- 
pilarse y probarse de manera completamente 
autónoma con respecto a los otros, y esto per- 
mite reducir de forma considerable los tiempos 
de escritura y de prueba. 

Otra ventaja que se deriva del uso de las subru- 
tinas es que con esta técnica se crea automáti- 
camente una librería de funciones de proceso 
asimismo complejas que pueden utilizarse tam- 
bién para programas diferentes que el que ha 
originado la primera necesidad: piénsese por 
ejemplo en un subprograma que controla la vali- 
dez de una fecha, o bien que determina el día 
de la semana que corresponde a la fecha. 
Estos dos subprogramas de uso general se re- 


RECOPILACION DE LAS OPERACIONES REALIZABLES EN FILES IS 


EAN 
¡ICI E 
pl 


SEQ=SEQUENTIAL DYN=DYNAMIC  RAN=RANDOM 
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5] 
* > 
Z 


* 
== 


CAUSAS DE SALIDA POR INVALID KEY DE UN FILE IS 


OPERACION OPEN | ACCESS MODE INVALID KEY 


READ 
WRITE 
WRITE 


REWRITE 


REWRITE 

DELETE 

START 

START ... KEY EQUAL ... 


START ... KEY GREATER .... 


START ... KEY NOT LESS 


520 = SEQUENTIAL 
|= INPUT 


DYN = DYNAMIC 
O=0UTPUT 


presentarán como ejemplos de aplicación al fi- 
nal del capítulo. 

Es interesante observar que el programa princi- 
pal y sus subprogramas están unidos física- 
mente durante la operación de encadenado, 
por lo que la ocupación de memoria real del 
programa compuesto viene dada por la suma 
de las ocupaciones de los programas que lo 
componen. 

Cuando un programa, ya sea el principal o una 
subrutina, reclama un subprograma para reali- 
zar una determinada función, generalmente 
debe comunicar a este último los datos que van 
a utilizarse. 

Si por ejemplo se considera una subrutina para 
el control de la fecha, el programa llamador de- 
berá proporcionar la fecha en la que el progra- 
ma lamado debe efectuar los controles. 

Por otra parte, el subprograma deberá comuni- 
car al programa principal la salida del control 
efectuado. 


No existe un record con clave 
igual a la implantada. 

Falta espacio en disco. 

Ya existe un record con clave 
igual. 

Falta espacio en disco. 

La clave no corresponde a la 
del record leído anterior- 
mente. 

No existe un record con clave 
igual a la implantada. 

No existe un record con clave 
igual a la implantada. 

No existe un record con clave 
igual a la implantada. 

No existe un record con clave 
igual a la implantada. 

No existe un record mayor 
que la clave que se ha ¡im- 
plantado. 

No existe Un record con clave 
mayor o igual a la que se ha 
implantado. 


DYN/RAN 
DYN/RAN 
SEQ/DYN 
SEQ/DYN 


SEQ/DYN 


SEQ/DYN 


RAN = RANDOM 
1-O =INPUT-OUTPUT 


Este intercambio de informaciones se obtiene 
utilizando campos de memoria identificados 
con nombres simbólicos que deben describirse 
anivel 01 0 77 de la WORKING-STORAGE SEC- 
TION del programa llamador. 

Los correspondientes campos del subprogra- 
ma deben estar descritos, según las reglas co- 
nocidas, en una sección adecuada de la DATA 
DIVISION. 

Esta sección, denominada LINKAGE SECTION, 
debe definirse al final de la WORKING- 
STORAGE SECTION. 


En la LINKAGE SECTION no se admite la 
cláusula VALUE si no corresponde a los ni- 
veles 88. 


Los nombres de los campos de tránsito no de- 
ben ser necesariamente iguales en el programa 
llamador y el llamado, aunque han de mantener 
las mismas PICTURE y USAGE a nivel de 
conjunto. 
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Las previsiones del ordenador 


Hace más de un decenio que los meteorólogos 
se valen de la ayuda de los satélites. Los datos 
transmitidos a tierra desde éstos no sólo sirven 
para el progreso de la meteorología como cien- 
cia teórico-experimental, sino que permiten so- 
bre todo las formulaciones de previsiones del 
tiempo siempre más fiables, con niveles de de- 
talle que hace pocos años habrían parecido 
inalcanzables incluso a los más optimistas. 
Más allá de la innegable importancia de los sa- 
télites, los resultados que hoy hacen de la me- 
teorología una ciencia en rapidísimo progreso 
se deben en gran parte al ordenador y a las téc- 
nicas de proceso automático de los datos. 
En Italia se ha constituido un nuevo centro para 
la recepción, proceso y presentación de datos 
obtenidos por satélites meteorológicos en el 
Centro Nazionale di Meteorología e Climatologia 
Aeronautica (CNMACA) del Servizio Meteorolo- 
gico dell'Aeronautica Militare, y tiene por objeti- 
vo la utilización de las informaciones del satélite 
geoestacionario europeo Meteosat. 
La red nacional ¡italiana de adquisición y trata- 
miento de datos está constituida por una esta- 
ción receptora primaria, por cinco estaciones 
receptoras secundarias, por un sistema de pro- 
ceso de datos y por veinte estaciones automáti- 
cas de detección. 
La estación receptora primaria (PDUS, Primary 
Data User Station) puede adquirir las informa- 
ciones digitales del Meteosat, mientras que las 
“estaciones receptoras «secundarias (SDUS, Se- 
condary Data User Station) pueden adquirir las 
informaciones analógicas del Meteosat. Efecti- 
vamente, el satélite envía a tierra dos tipos dife- 
rentes de señales: analógicas y digitales. 
La señal analógica es una entidad que varía de 
forma casi continua manteniéndose rigurosa- 


mente proporcional a la magnitud detectada. En 
cambio, la señal digital está constituida por una 
secuencia de impulsos de tipo si-no, o sea, del 
mismo tipo que los procesados en los calcula- 
dores. En el segundo caso, la proporcionalidad 
con la magnitud observada se traduce en térmi- * 
nos numéricos. 

La principal magnitud mantenida en observa- 
ción por el Meteosat es la «radiancia» de la su- 
perficie terrestre, o sea, la cantidad de energía 
radiada al espacio por la corteza terrestre, las 
superficies líquidas y los sistemas nubosos. 

El subsistema de cálculo, de tipo «off-line», tie- 
ne la misión de procesar los datos contenidos 
en las señales digitales o analógicas y traducir- 
los en una imagen gráfica. 

Las veinte estaciones automáticas de recogida 
de datos del tipo DCP (Data Collection Platform) 
emplean el Meteosat como puente para la trans- 
misión de dichos datos al Circuito Mundial de 
Telecomunicaciones Meteorológicas. 

La estación primaria PDUS está constituida por 
un subsistema de recepción, dotado de una an- 
tena parabólica de cerca de 5 metros de diáme- 
tro, de un subsistema de cálculo y de sofistica- 
dos aparatos de presentación gráfica y alfanu- 
mérica de los datos y de las imágenes, La ante- 
na recibe directamente del Meieosat 2 las imá- 
genes de alta resolución y, después de un pre- 
tratamiento, se reenvían desde Darmstadt (don- 
de tiene su sede el Centro Operativo que gestio- 
na el satélite) al Meteosat. 

El corazón de la estación primaria está constitui- 
do por un procesador cuya unidad central de 
proceso (CPU) está provista de 2 Megabytes de 
memoria RAM, y que se apoya en memorias 


masivas, en discos magnéticos para un 
¿conjunto de cerca de 250 Mbytes. 


Dos unidades de cinta magnética permiten el 
almacenamiento temporal e histórico de los da- 
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y US 


¿> me 


PDUS 
PRIMARY DATA USER STATION 


SDUS 
SECONDARY DATA USER STATION 


DCP 
DATA COLLECTION PLATFORM 


Arriba, ilustración esquemática de 
los subsistemas de adquisición y 
proceso de los datos 

transmitidos por el satélite Meteosat. 
A la derecha, arriba, estación 

de trabajo del sistema ISIDE; en el 
centro, un momento del trabajo 
en una estación receptora 
secundaria (SDUS); abajo, el 
calculador central de la estación 
receptora primaria (PDUS) 

de Roma. 


tos, mientras que la gestión operativa de los pro- sión de partes de imágenes de especial interés 
cedimientos de proceso de datos se hace utili- meteorológico. 

zando una serie de terminales interactivos. Apa- Un conjunto de microordenadores que trabajan 
ratos de reproducción fotográfica digital, conec- en paralelo con la CPU, interfaces y presentado- 
tados al ordenador, permiten también la impre- res gráficos permite acumular de manera conti- 
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nua hasta 32 imágenes de alta resolución para 
cada una de ¡as tres bandas (visible, infrarrojos 
y vapor acuoso) en las que trabaja el radiómetro 
del Meteosat, y realizar películas. Estas últimas 
se presentan después mediante un sofisticado y 
eficaz sistema de animación basado en una ar- 
quitectura de multiprocesador y provisto de 2 
Mbytes de memoria. 

Las masas nubosas y las perburbaciones meteo- 
rológicas discurren así bajo el ojo del meteorálo- 
go reconstruyendo una «historia» de movimien- 
tos y de desarrollo que llega normalmente hasta 
las 16 horas anteriores a la última imagen, con 
intervalos de 30 minutos. Ampliando el intervalo 
de tiempo entre una imagen y la siguiente es 
posible hacer películas que abarcan un tiempo 
superior a 16 horas. También pueden realizarse 
películas de duración muy superior a las 16 ho- 
ras sobre cinta magnética o videocassette para 
ulteriores reproducciones. 

La posibilidad de empleo del zoom interactivo y 
de la técnica del falso color, basada en la atribu- 
ción de un color a determinados valores de ra- 
diancia medida por el Meteosat, aumenta nota- 
blemente la capacidad de interpretación fisica 
de los fenómenos atmosféricos en curso. El co- 
lor puede emplearse también después de un 
tratamiento de los datos de radiancia basado en 
técnicas multiespectrales. Cada una de las 32 
imágenes presentadas está constituida por un 
enorme número de elementos de imagen (pi- 
xels): 1250 líneas X 2500 pixels/línea en la ban- 
da de luz visible, y 625 X 1250 para la banda 
"de la luz infrarroja o del valor acuoso: para cada 
pixel, el sistema puede memorizar el valor nu- 
mérico de la correspondiente radiancia. 

El proceso de los datos digitales recogidos me- 
diante la estación primaria permite obtener 
conjuntos de datos meteorológicosa de gran uti- 
lidad para la previsión del tiempo. 

Uno de éstos es la medición de la velocidad de 
los vientos en cota, deducida del desplazamien- 
to de las nubes mediante la observación de va- 
nias imágenes sucesivas de la misma zona. La 
información es de fundamental importancia por- 
que llena el vacío que dejan las observaciones 
convencionales en cota mediante radiosondas 
en las zonas desérticas u oceánicas. 

La dirección y la velocidad de los vientos dedu- 


cidas de los datos del Meteosat se entran diaría- , 


mente como datos en los modelos numéricos 
de previsión del tiempo a corto y medio plazo. 
Una segunda información de gran importancia 
corresponde a la medición de las temperaturas 
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superficiales de los mares. Éstas pueden obte- 
nerse procesando los datos relativos a la radian- 
cia en la banda del infrarrojo, que es proporcio- 
nal a la temperatura del cuerpo radiante (ley de 
Stefan-Boltzmann), teniendo en cuenta algunas 
correcciones debidas a la atenuación sufrida 
por la radiación al atravesar la atmósfera y al 
ángulo de inclinación de la luz solar. 

Estos valores superficiales de temperatura de 
los océanos se utilizan normalmente en los mo- 
delos de previsión y para los balances de radiía- 
ción del sistema Tierra-Atmósfera. 

El análisis de las nubes permite determinar, en 
amplias zonas, el porcentaje de cielo cubierto y 
las diversas nubes que concurren a formar la 
nubosidad total. Este tipo de análisis se repite 
cada 6 horas y es directamente utilizable para la 
ayuda a la navegación aérea. 

Técnicas estadísticas permiten clasificar los di- 
ferentes tipos de nubes y proporcionar además, 
en condiciones de cielo despejado, útiles infor- 
maciones sobre las corrientes marinas. 

La cota supeñor de las nubes es otro dato de- 
aucible del análisis de las radiancias en amplias 
zonas de Europa, sobre el Mediterráneo y de 
África. Como la temperatura de la cota superior 
de los cuerpos nubosos es inversamente pro- 
porcional a la altitud a que se encuentran, pue- 
de aplicarse un color a determinados intervalos 
de temperatura y presentar en el monitor un ma- 
pa representatijvo de la superficie exterior de los 
sistemas nubosos, así como de su extensión. 
Ésta es otra preciosa información para la ayuda 
a la navegación aérea tanto civil como militar. 
Los datos de mayor interés para la climatología 
consisten principalmente en los mapas de co- 
bertura del cielo, en los del manto nivoso y en 
los valores de radiación reflejada por los océa- 
nos y por los desiertos, informaciones de las 
que es posible calcular la diferencia entre la 
energía global entrante y saliente del sistema 
Tierra-Atmósfera. Es inútil subrayar que esta di- 
ferencia determina la temperatura media de la 
Tierra y condiciona el clima a escala planetaria. 
Las estaciones secundarias SDUS están instala- 
das, además de la que hay cerca del CNMCA 
de Roma, en los aeropuertos de Milán, Cagliari, 
Brindisi y Palermo. 

Las estaciones reciben del Meteosat las imáge- 
nes analógicas de las transmisiones WEFAX 
(Weather Facsimile), en las tres bandas de la luz 
visible, del infrarrojo y del vapor acuoso, según 
formatos y según un programa de transmisión 
definidos en el Centro principal de Darmstaat, 


Imágenes en falsos colores procesadas en la estación PDUS de Roma. 


en Alemania Federal. Las imágenes están cons- 
tituidas por 800 líneas con 800 pixels por línea y 
normalmente se utilizan para el análisis del tiem- 
po durante las 24 horas. Estas imágenes, a dile- 
rencia de las recibidas a través de la PDUS, 
están destinadas a una utilización de tipo no 
numérico. 

Cada estación está constituida por un módulo 
receptor (antena, down-converter, receptor) que 
capta las señales analógicas enviadas sobre 
dos canales de telecomunicación en la banda S 
de 1691.0 y 1694.5 MHz, por un microordena- 
dor que regula el flujo de las informaciones y 
acepta un coloquio interactivo con el usuario, 


por un sistema de presentación en pantalla en 
b/n, por un sistema de registro en cinta magnéti- 
ca y por un sistema de reproducción sobre pa- 
pel fotográfico (en el caso específico, un repro- 
ductor fotográfico de rayo láser). 

El sistema de mando y control de la estación es 
muy sencillo y versátil al mismo tiempo, porque 
el operador puede predisponer el empleo auto- 
mático de la propia estación. 

Las señales recibidas por cada una de las cinco 
SDUS pueden enviarse por línea telefónica a 
terminales remotos de tipo facsímil o vídeo (un 
máximo de diez por cada estación), así como 
por lo menos cincuenta entidades italianas pue- 
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Imagen procesada por una SDUS de un 
sistema nuboso sobre Europa occidental. 


den ponerse fácilmente en condiciones de reci- 
bir las imágenes Meteosat en tiempo real. 

La posibilidad de registrar las imágenes en cinta 
magnética (cassette) es un óptimo sistema para 
constituir un archivo local eficaz, poco volumino- 
so y relativamente barato. 

El sistema de proceso «off-line» ha sido el pri- 
mer sistema utilizado por el Servizio Meteorolo- 
gico dell Aeronautica Militare para estudiar las 
características de las imágenes del Meteosat y 
para desarrollar módulos software para el trata- 
«miento de las informaciones digitales de los 
datos del satélite, programas que una vez pues- 
tos a punto se están instalando operativamente 
en la PDUS. 

El Sistema puede procesar imágenes recibidas 
por la estación primaria en tiempo casi real me- 
diante un enlace de alta velocidad y de acceso 
directo a la memoria de ambos ordenadores. 
El sistema está constituido por un ordenador 
análogo al de la PDUS, con memoria RAM cen- 
tral de 1 Mbyte y memoria masiva en disco de 
20 Mbytes. Está dotado de dos unidades de 
cinta magnética, de un terminal de control, de 
plotters y presentadores gráficos capaces de vi- 
sualizaciones en color para poder evidenciar to- 
dos los detalles de las imágenes a examinar. 


El sistema, llamado ISIDE (Interactive System for. 


Image Data Elaboration), no sólo puede prace- 
sar imágenes del Meteosat, sino también de 
otros satélites, imágenes radar digitales o ma- 
pas meteorológicos para superponerlos a las 
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imágenes presentadas en la pantalla. Cada una 
de las veinte estaciones DCP está dotada de 
ocho sensores que miden las magnitudes fun- 
damentales en el suelo: intensidad del viento, 
dirección del viento, presión, temperatura del 
aire, humedad relativa, precipitación, tempera- 
tura en el suelo y radiación solar. 

Estas estaciones, completamente automáticas, 
efectuán una determinación de los parámetros 
recibidos cada hora, convierten las señales 
eléctricas de los sensores en parámetros físicos 
mediante tablas de tarado y codifican las infor- 
maciones en el formato previsto. 

Los mensajes se registran localmente y se 
transmiten al Meteosat, el cual reenvía el men- 
saje de cada DCP al centro operativo de Darms- 
tadt, que lo introduce en la Red Mundial de Tele- 
comunicaciones Meteorológicas. 

Las estaciones también están conectadas al 
CNMCA de Roma mediante líneas telefónicas 
conmutadas que permiten la obtención de los 
mensajes en el caso en que se produzca una 
avería en el satélite. 

El nuevo Centro del Servizio Meteorologico para 
el tratamiento de datos de satélite deberá com- 
pletarse con los aparatos destinados a la recep- 
ción de datos de imagen y digitales enviados a 
la Tierra por satélites polares TIROS-N. 

Como estos últimos tienen una resolución espa- 
cial del orden de 1,2 km (cerca de 4 veces 
mayor que la del Meteosat), proporcionan unas 
imágenes de calidad muy superior. Además, 
por disponer de un elevado número de senso- 
res radiométricos en la banda del infrarrojo y en 
la de microondas, pueden efectuar sondeos de 
los diferentes perfiles verticales de temperatura 
con una resolución espacial de aproximada- 
mente 50 km. 

En la realización del Centro descrito han contri- 
buido DATAMAT, una firma itallana de ingenie- 
ría de sistemas, que ha proporcionado la esta- 
ción primaria PDUS, las estaciones secundarias 
SDUS y el sistema «off-line». Otra firma italiana 
de aparatos de precisión, la SIAP, ha suministra- 
do las estaciones automáticas DCP. 

El Servizio Meteorologico dell Aeronautica Milita- 
re utiliza el sistema de satélite de forma conti- 
nuada (24 horas sobre 24 horas), y los primeros 
resultados indican que las metas prefijadas 
pronto se conseguirán plenamente. 


De informaciones del Servizio Meteorologico dell'Aeronauti- 
ca Militare y de Datamat Ingegneria dei Sistemi S.p.A, 


Es decir, un campo de intercambio en el progra- 
ma principal y su correspondiente en la subruti- 
na pueden tener descripciones diferentes, siem- 
pre que queden inalteradas la longitud global y 
el tipo de USAGE utilizada. 

Si en el programa llamador se define un campo 
de la forma 


01 A. 
05 Al PIC X(2). 
05 A2 PIC X(4). 


en la LINKAGE SECTION del programa llama- 
do, el mismo campo puede describirse así: 


01 8B. 
05B1  PICX 
05B2 PIC X(3). 
05B3 PIC X(2). 


Como puede verse, el campo A y el campo B, a 
pesar de estar subdefinidos de manera diferen- 
te, tienen la misma longitud global. 

La definición de los campos en la LINKAGE 
SECTION no comporta la reubicación de la me- 
moria correspondiente, puesto que el subpro- 
grama prevé que los campos ya estén definidos 
en la memoria del programa llamador. 

El campo B del ejemplo anterior, definido en la 
LINKAGE SECTION del programa llamado, ocu- 
pa físicamente la misma área de memoria que 
el campo A definido en la WORKING-STORAGE 
SECTION del programa llamador. En sustancia, 
el campo de LINKAGE SECTION de una subru- 
tina puede compararse a una PREDEFINES del 
campo de WORKING-STORAGE SECTION del 
programa llamador. 


El verbo CALL. 


La llamada de una subrutina se efectúa median- 
te la instrucción CALL (llama), cuyo formato se 


AY ISION 


ha representado en la primera tabla de abajo, 
donde «literal» representa una cadena de ca- 
racteres, encerrados entre comillas, que corres- 
ponden al nombre definido en la cláusula 
PROGRAM-1D del procrama llamado; «nombre- 
de-dato-1, nombre-de-dato-2...» son los nom- 
bres de los campos de tránsito definidos en la 
WORKING-STORAGE SECTION. 

El nombre del programa llamado debe ser úni- 
co: un programa no puede llamar dos subpro- 
gramas diferentes con igual PROGRAM-ID. 


PROCEDURE DIVISION 
de una subrutina 


Para completar la descripción de las modalida- 
des de utilización de un subprograma, debe te- 
nerse en cuenta que, además de la LINKAGE 
SECTION, es necesario insertar la cláusula 
USING en la instrucción PROCEDURE DIVI- 
SION según el formato representado en la se- 
gunda tabla de abajo, donde «nombre-da-dato- 
3, nombre-de-dato-4...» son los nombres de los 
campos de tránsito definidos en la LINKAGE 
SECTION. 

El orden en que los «nombres-de-dato» están 
especificados en esta instrucción debe respetar 
fielmente el orden con el que se han definido los 
datos en la cláusula USING de la CALL corres- 
ponciente. La asociación entre campos de trán- 
sito del programa llamador y los definidos en la 
LINKAGE SECTION del pragrama llamado sólo 
se efectúa a través de esta correspondencia. 


La instrucción EXIT PROGRAM 


Esta instrucción tiene la función de transferir el 
control de la subrutina al programa llamador, y 
tiene el siguiente formato: 


EXIT PROGRAM 


En un subprograma puede haber más de una 


DIVISION USING nombre-de: 


ESTRUCTURA DE UN PROGRAMA LLAMADOR 


IDENTIFICATION HNIVISION 
PROGRAM-I11, LLAMAJNOR., 


DATA DIVISION, 


WORK ING-STORAGE SECTION, 


01. A FIC 
01 KE, 

035 El 

05 B2 


* 
* 


PROCEDURE DIVISION, 
MAIN SECTION. 
INICIO, 


CALL '*VERIFTCA” USING E 
A. 


x(8). 


PIC 9(6). 
PIC X(10). 


ESTRUCTURA DE UN PROGRAMA LLAMADO 


IDENTIFICATION DIVISION, 
FPROGRAM-1I1, VERIFICA. 


DATA DIVISION, 


WORKING-STORAGE SECTION. 


LINKAGE 


SECTION, 
01 € PIC X(8) 
01 Un, 
05 Di PIC 9(6). 
05 12 PIC x(4). 
035  D3 PIC X(6), 


* 
E 
* 
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PROCEDURE DIVISION USING Ll 
Cc. 

PRIMERA SECTION. 

INICIO, 


SALIDA. 
EXIT PROGRAM, 


Operación de carga de una bobina en la unidad de cinta. 


EXIT PROGRAM, en función de las diferentes 
vías de salida previstas. 

La estructura esquemática de un programa 
principal (LLAMADOR) que usa una subrutina 
de PROGRAM-ID VERIFICA se ha representado 
en el primer listado de la página anterior, mien- 
tras que la estructura del subprograma VERIFI- 
CA puede verse en el segundo listado. Obser- 
vando los detalles indicados puede verse la apli- 
cación de algunas de las reglas enunciadas: 


— los campos A y B, descritos en la 
WORKING-STORAGE SECTION del progra- 
ma llamador (LLAMADOR) se han pasado al 
subprograma mediante la instrucción CALL 
VERIFICA' USING B A 

— el LITERAL usado en la instrucción de llama- 
da contiene el PROGRAM-ID de la subrutina 
(VERIFICA) 

— mediante la línea simbólica de la subrutina 
PROCEDURE DIVISION USING D C' se es- 
tablece la correspondencia entre los campos 
del programa llamador y los del programa 
llamado. 


Obsérvese el orden de especificación de los 


campos: tanto en la instrucción de llamada 
CALL 'VERIFICA' USING B A 
como en la 
PROCEDURE DIVISION USING D C 


primero se referencia el campo de 16 caracte- 
res y después del de 8 caracteres. 


Ejemplos de aplicación 
Al final de este capítulo presentamos dos ejem- 
plos de subrutinas de uso muy frecuente: 


1 / CONTRFECHA, para el control y la conver- 
sión de una fecha 

2 / CALENDARIO, para el cálculo del día de la 
semana que corresponde a una fecha. 


Las funciones realizadas por las dos subrutinas 
se explican a nivel de REMARKS. 

Obsérvese que la rutina CALENDARIO, antes 
de efectuar el cálculo requerido, llama la CON- 
TRFECHA pidiéndole el control de la fecha reci- 
bida por el programa principal. 
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EJEMPLO DE APLICACION: CONTROL DE UNA FECHA 


IDENTIFICATION NTVISION, 
PROGRAM-11, CONTRFECHA. 


REMARKS., suenen ADA ACLARA ss 


* 


* 


* 
ENVIRONMENT DTVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. ¿1.000 00... 
ORJECT-COMPUTER.,. +... vorono ecos 


* 
* 
DATA IIVISTION. 

WORKING-STORAGE SECTION. 
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LA CONVERSION SE REALIZA SOBRE LA EKASE DEL VALOR 
DEL CAMPO OPCION: 


OPCION = 1. 
CONTROL DE Lá FECHA EN EL FORMATO DIMMAA 
OPCION = 2 


CONTROL YE LA FECHA EN EL FORMATO DIMMAA Y CONVERSION 
AL FORMATO AAMMID 

OFCION = 3 

CONTROL DE LA FECHA EN El FORMATO DIMMAA Y CONVERSION 
AL. FORMATO JULIANO CAADMD) 


LA FECHA, CONTROLANA Y EVENTUALMENTE CONVERTIDA, SE 
RESTITUYE EN EL CAMPO FECHA-1INOUT 

SI LA FECHA DADA RESULTA CORRECTA, EN EL CAMPO ERROR 
SE RESTITUYE EL VALOR, SI NO EL VALOR 1, 


AUXILIAR-DIUIMMAA., 


035 DIA. 

10 UD PIC 99, 
035 MES. 

10 MM PIC" 99. 
035 AÑO. 

10 AA FIC 99, 
AUXILIAR JULIANA —REDEFINES —AUXIL IAR-IDMMAA. 
03. FILLER-9 PIC 9, 

059  AA- JULIANA PIC (2), 
05 TD JULIANA PEC 7? (3) 
AUX-99 PIC 99, 
RESTO FIC 9 COMF, 


88 RISIESTO VALUE O. 


TABLAS 


01. TILAS=X-=MES, 
05  FILLER PIC X(24) VALUE 
'312831303130313130313031".. 
01 TABLA-=T11AS  REDEFINES —DILAS-X-MES. 
0%. NUM-1TAS PIC 99 OCCURS 12, 


01 BASES" JULTANAS., 
03. FILLER FIC X(36) VALUE 
9000310590901 2015118121224327 3304334", 
01. TARLAS-RASES - REDEFINES BASES" JUL IANAS. 


03. RASE FTC 9(3) UCCURS 12, 
* 
* 
* 
LINKCAGE SECTION, 
01 OFCION PTC 2, 
01 - FECIHA=INQUT. 
05 TIM 1NOUT PIC 99, 
03. MM-INOQUT FIC 99. 
03. AA-1INOUT PIC 99, 
01  EREOR PECUZA 
x 
k 
* 
PROCEDURE HIVISTON USING OFCTION. 
FECHA-INQUT 
ERROR. 
* 
INICIO. 


MOVE 0 TO ERROR, 
CONTROL-0FC, 


TF. OFCION NOT = 1 
ANO = 2 
ANTI = 3 


MOVE 1 TO ERROR 
DISPLAY '**XOPCION" 
OFCION 
'* NO PREVISTA xxx" 
UPON PRINTER 
GO TO EXIT-FROGRAM, 
MOVE. FECHA=INOUT TO AUXILIAR=IIMMAR . 
CONTROL. INPUT, 
IF AUXILIAR=MURMAA = SFACES 
MOVE 1 TO ERROR 
DISELAY **xX% FECHA NO ESPECIFICADA xxx! 
UPON PRINTER 
GO TO EXIT-FROGRKAM. 
INSFECT DIA REFPLACING LEAUING SFACES BY ZEROES., 
INSFECT MES REPLACING LEADING SPACES EY ZEROES. 
IF DIA NOT NUMERTC 
OR 
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MES NOT NUMERIC 
OR 
AÑO NOT NUMERIC 
MOVE 1 TO ERROR 
DISPLAY **xxXxx*x FECHA NO NUMERICA x*xx*' 
UFON PRINTER 
GO TO EXIT-PROGRAM. 
CONTROL-MES. 
TF MM GREATER THAN 12 
OR 
LESS THAN 1 
MOVE 1 TO ERROR 
DISPLAY 'x*x%xX NUMERO DE MES ERRONEO *x*x' 
UFON FRINTER 
60 TO EXIT-FROGRAM. 
CONTROL «BISTESTO. 
DIVIDE AA BY 4 
GIVING AUX-99 
REMAINIER RESTO. 
IF EISIESTO 
MOVE 29 TO NUM-=DTAS (2D. 
CONTROL-ITAS. 
IF. DD LESS THAN 1 
Or 
GREATER THAN NUM-DIAS (MM) 
MOVE 1 TO ERROR 
LISPLAY '*exX IIA DEL MES ERRONEO a0' 


UFON PRINTER 
GO TO EXIT-FROGRAM, 
CONVERSIONES , 
IF. OFCION = 1 
GO TO EXIT“FROGRAM. 
IF. OFCION = 2 
MOVE 1D TO AUX-99 
MOVE AA TO 1 
MOVE. AUX"99 TO AA 
MOVE AUXTLIAR-IIMMAA TO FECHA-INQUT 
60 TO EXIT-FROGRAM. 
MOVE O TO FILLER-9 
TI JUL TANA. 
MOVE AA-INOUT TO AA- JULIANA, 
IF. RISIESTO 
ANT 
MM=-INOUT GREATER THAN 2 
MOVE 1 TO Dí JULIANA. 
AIM 1 TNOUT 
DI MNJL, LANA 
RKASE - (MM-=TNQUT) GIVINC TM JULTANA. 


MOVE AUXILIAR JUL.TANA TO FECHMA-INOUT, 
*x 


x 
EXIT-=FROGRAM. 


1150 


EJEMPLO DE APLICACION: CONVERSION DE UNA FECHA 


IDENTIFICATION VIVISTON, 
PROGRAM—1D,  CALENUARTO, 


REMARKS . 


* 
» 


AAA AS 
SUERUTINA —CALENTARIO = 
A A AAA AAA A 
LA SUERUTINA ACEFTA UNA FECHA EN EL FORMATO IIMMAR Y 
RESTITUYE El. CORRESPONSTENTE DIA DE LA SEMANA 
EN EL CAMPO USET 
PARA CONTROLAR LA FECHA DE ENTRADA Y TRANSFORMARLA EN 
FORMATO JULTANO LLAMA LA SUBRUTINA CONTRFECHA 
EL. CALCULO SÉ EFECTUA ASUMIENDO COMO KASE EL 
DIA 1 ENERO 1900 (LUNES) 
mm . = 


EN CASO ME ERROR SE PARA El FROCESO. 


ño 


ENVIRONMENT DIVISION, 
CONFIGURATION SECTION, 
SOURCE-COMPUTER, oororisorcmo cmo. 
ORJECT=COMPUTER: orar rorssos. 


* 


* 
DATA DIVISION. 
VORKING=STOURAGE SECTION, 


01 
01 
01 


OFCION PIC 9, 
ERROR PICS 
AUXTL.IAR=-DIUMMAR , 

05 DIA. 

10 In PIC 99. 
05 MES. 

10 MM PIC 99, 
05 AñO. 

10 AA PIC 99, 
AUXILIAR=JULIANA  REDEFINES AUXILIAR DIMMAR, 
05 PILLER=9 5 PIDEN 
05. AA-JULIANA PIC Ca), 
05 DM JULIANA PIC*9:03). 
COCTIENTE PIC 95) 
RESTO PIC 9(5). 
AFOYO FIC 9(5), 
IND PIC Y. 

TABLAS 
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01  TABLA-NOMERES, 


05  FILLER PIC X(3) VALUE *'TIOM” 
035  FILLER PIC X(3) VALUE 'LUN” 
05 FILLER PIC X(32 VALUE 'MAR” 
03  FILLER PIC X(3) VALUE 'MIE” 
0595  FILLER PTC X(3) VALUE *JUE' 
03  FILLER FIC X(3) VALUE 'VIE” 
05 FILLER FIC X(3) VALUE 'SAB' 


01 NOMBRES RKEDEFINES TARLA-NOMERES. 
05  NOMERE-DTA PIC X(3) OCCURS 7. 

* 
* 

LINKAGE 5ECTION, 

01. FECHA-IN PIC X(6), 

01  ISET PIC XD. 

* 
* 

PROCETIURE DIVISION USING FECHA-TIN 


ISET. 
* 
INICIO, 
MOVE FECHA-IN TO AUXILIAR-TIIMMAR . 
MOVE 3 TO OFCION. 


CALL 'CONTREECHA' USING: OPCION 
AUXIL FAR—TIMMAA 
ERROR. 
IF ERROR NOT = 0 
DISPLAY '*xx* PROCESO INTERRUMPITIO xx" 
UFON PRINTER 
STOP RUN. 
* 
k 
CALCULO. 
DIVIDE Af JULIANA RY 4 
GIVING COCIENTE 
REMAINUER RESTO. 
IF RESTO = 0 
SUESTRACT 1 FROM COCIENTE. 
COMPUTE AFOYO = AA=JULTANA * 365 + 
Tn JULIANA + 
COCIENTE. 
DIVINE APOYO EY 7 
GIVING COCIENTE 
REMAINDIER RESTO. 
COMPUTE IND = RESTD + 1. 
MOVE NOMBRE-OTA C(1INO TO NSET. 
* 
* 
EXIT-FROGRAM. 
EXIT PROGRAM. 
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